(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    211050,       4775]
NotebookOptionsPosition[    199687,       4448]
NotebookOutlinePosition[    200168,       4466]
CellTagsIndexPosition[    200125,       4463]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Aero Components", "Title",
 CellChangeTimes->{{3.52242986153125*^9, 3.5224298620625*^9}, {
  3.575788037575017*^9, 3.5757880386202307`*^9}}],

Cell[CellGroupData[{

Cell["General", "Section",
 CellChangeTimes->{{3.571975903771537*^9, 3.571975916079858*^9}}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG06.mx"}]], "Input",
 CellChangeTimes->{{3.57692008006717*^9, 3.576920080081172*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", "\"\<HOPSAN++\>\"", ",", 
      "\"\<componentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Special\>\"", ",", "\"\<AeroComponents\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, {3.5757878767889338`*^9, 
   3.5757879248295527`*^9}, 3.5769419470239835`*^9, {3.5769421140515366`*^9, 
   3.576942115482619*^9}, 3.5772072510854464`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fuel Tank", "Section",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.522430363453125*^9, 3.522430369625*^9}, 
   3.53189964671875*^9, 3.5411602015417213`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", " ", "=", " ", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", " ", "=", " ", "\"\<FuelTank\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "brief", " ", "=", " ", 
   "\"\<Calulates the mass of remaining fuel in tank\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", " ", "=", " ", "\"\<ComponentQ\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "author", " ", "=", " ", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], ";"}], "\n", 
 RowBox[{"ResetComponentVariables", "[", "]"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.522429929546875*^9, 3.522429972765625*^9}, {
   3.5224301489375*^9, 3.522430155421875*^9}, 3.53189964671875*^9, 
   3.5411602015417213`*^9, 3.571975867182767*^9, {3.575644851217208*^9, 
   3.5756448512202077`*^9}, 3.5757879449382105`*^9, 3.5769427345870295`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "  ", "=", " ", 
   RowBox[{"{", "\n", "   ", 
    RowBox[{"{", 
     RowBox[{
     "massfuel0", ",", " ", "0.", ",", " ", "double", ",", " ", 
      "\"\<kg/s\>\"", ",", " ", "\"\<The intitial fuel mass\>\""}], "}"}], 
    "\n", "   ", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.522430004390625*^9, 3.522430004390625*^9}, 
   3.5224300528125*^9, 3.53189964671875*^9, 3.5411602015417213`*^9, {
   3.5719757769499607`*^9, 3.5719757815985813`*^9}, 3.571975867182767*^9, {
   3.575644851222208*^9, 3.575644851227208*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "  ", "=", " ", 
   RowBox[{"{", "\n", "   ", 
    RowBox[{"{", 
     RowBox[{
     "massflow", ",", " ", "0.", ",", " ", "double", ",", " ", "\"\<kg/s\>\"",
       ",", " ", "\"\<Mass flow rate\>\""}], "}"}], "\n", "   ", "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.52242999471875*^9, 3.52242999471875*^9}, 
   3.522430053078125*^9, 3.53189964671875*^9, 3.5411602015417213`*^9, {
   3.571975775904801*^9, 3.5719757848900986`*^9}, 3.571975867182767*^9, {
   3.5756448512292085`*^9, 3.5756448512312083`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "  ", "=", " ", 
   RowBox[{"{", "\n", "   ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "massfuel", ",", " ", "0.", ",", " ", "double", ",", " ", "\"\<kg\>\"", 
       ",", " ", "\"\<Fuel mass\>\""}], "}"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{
      "consfuel", ",", " ", "0.", ",", " ", "double", ",", " ", "\"\<kg\>\"", 
       ",", " ", "\"\<Consumed fuel mass\>\""}], "}"}]}], "\n", "   ", 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.522429987234375*^9, 3.522429987234375*^9}, {
   3.522430053296875*^9, 3.522430053515625*^9}, 3.53189964671875*^9, 
   3.5411602015417213`*^9, {3.5719757878696795`*^9, 3.571975793750842*^9}, 
   3.571975867182767*^9, {3.5756448512322083`*^9, 3.5756448512352085`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", " ", "=", " ", 
   RowBox[{"{", "\n", "   ", 
    RowBox[{
     RowBox[{"Der", "[", "consfuel", "]"}], " ", "==", " ", "massflow"}], 
    "\n", "   ", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{
  3.52328838171875*^9, 3.53189964671875*^9, 3.5411602015417213`*^9, {
   3.554784526954604*^9, 3.5547845283608723`*^9}, {3.5718615028911376`*^9, 
   3.5718615137643566`*^9}, {3.571975761724946*^9, 3.571975763503278*^9}, 
   3.571975867182767*^9, {3.575644851236209*^9, 3.575644851238209*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", "consfuel", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.52243007746875*^9, 3.522430082921875*^9}, 
   3.53189964671875*^9, 3.5411602015417213`*^9, 3.571975867182767*^9, {
   3.575644851238209*^9, 3.575644851241209*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", " ", "=", " ", 
   RowBox[{"{", "\n", "  \t\t", 
    RowBox[{"massfuel", " ", "==", " ", 
     RowBox[{"limit", "[", 
      RowBox[{
       RowBox[{"massfuel0", " ", "-", " ", "consfuel"}], ",", " ", "0.", ",", 
       " ", "massfuel0"}], "]"}]}], "\n", "  \t\t", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.531857777953125*^9, 3.531857802140625*^9}, 
   3.53189964671875*^9, 3.5411602015417213`*^9, {3.571861494529523*^9, 
   3.57186149860113*^9}, 3.571975867182767*^9, {3.575644851242209*^9, 
   3.5756448512442093`*^9}, 3.577451003591405*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"variableLimits", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"consfuel", ",", " ", "0", ",", " ", "massfuel0"}], "}"}], 
   "}"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{
  3.53189964671875*^9, 3.5411602015417213`*^9, 3.571975867182767*^9, {
   3.5756448512482095`*^9, 3.57564485125021*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"consfuel", ",", "0", ",", "massfuel0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.575644863130889*^9, 3.5772072415018983`*^9, 3.5772072872095127`*^9, 
   3.5772804007823696`*^9, 3.5774506852875776`*^9, {3.57745082642169*^9, 
   3.577450850405088*^9}, 3.577450938554902*^9, 3.5814060830895767`*^9, 
   3.590728290698135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"consfuel", ",", " ", "0", ",", " ", "massfuel0"}], "}"}], 
  "}"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{
  3.522430162203125*^9, 3.53185547803125*^9, 3.531855688421875*^9, 
   3.531855946*^9, 3.53185610475*^9, {3.531856166765625*^9, 
   3.53185619403125*^9}, 3.53185647746875*^9, 3.53185689940625*^9, 
   3.5318569805*^9, 3.531857648140625*^9, 3.531857809125*^9, 
   3.531857851828125*^9, 3.53189964671875*^9, 3.531899679109375*^9, {
   3.538722409885125*^9, 3.538722447853875*^9}, 3.538722569228875*^9, 
   3.538977563302149*^9, 3.5411602015417213`*^9, 3.554715827671949*^9, 
   3.554784532517175*^9, 3.571975867182767*^9, {3.5756448512512093`*^9, 
   3.5756448512532096`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"consfuel", ",", "0", ",", "massfuel0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5756448631538906`*^9, 3.5772072415259*^9, 3.5772072872305136`*^9, 
   3.5772804008053713`*^9, 3.57745068531258*^9, {3.577450826452693*^9, 
   3.5774508504320908`*^9}, 3.577450938581905*^9, 3.5814060831195784`*^9, 
   3.590728290725135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{
  3.53189964671875*^9, 3.5411602015417213`*^9, 3.571975867182767*^9, {
   3.5756448512542095`*^9, 3.57564485125621*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575644863181892*^9, 3.5772072416229053`*^9, 3.5772072872595153`*^9, 
   3.5772804008343725`*^9, 3.5774506853415833`*^9, {3.5774508264976974`*^9, 
   3.577450850461094*^9}, 3.577450938612908*^9, 3.581406083161581*^9, 
   3.590728290824135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575644863181892*^9, 3.5772072416229053`*^9, 3.5772072872595153`*^9, 
   3.5772804008343725`*^9, 3.5774506853415833`*^9, {3.5774508264976974`*^9, 
   3.577450850461094*^9}, 3.577450938612908*^9, 3.581406083161581*^9, 
   3.5907282908261347`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\(\\(\\\"t\\\" \[Ellipsis] \\\"e\\\"\\)\\) \[Rule] \\(\\(\\\"\\\
\" \[Ellipsis] \\\"\\\"\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\
\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \
\\(\\({\\(\\(\\\"isopath\\\" \[Rule] \\\"AeroFuelTank.svg\\\"\\)\\), \\(\\(\\\
\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroFuelTank.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.5`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"massflow\\\"\\)\\)}\
\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.666667\\\"\\)\\), \\(\\(\\\"y\\\" \
\[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \
\\(\\(\\\"name\\\" \[Rule] \\\"consfuel\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\\"version\\\" \[Rule] \\\"0.1\\\"}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"AeroFuelTank\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \
\\\"AeroFuelTank\\\"\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroFuelTank.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \\\
\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroFuelTank.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\
\\)\\)]\\)\[NoBreak] is not a list of contents. The third item in an \
XMLElement must be a list of contents, even if it is an empty list. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575644863181892*^9, 3.5772072416229053`*^9, 3.5772072872595153`*^9, 
   3.5772804008343725`*^9, 3.5774506853415833`*^9, {3.5774508264976974`*^9, 
   3.577450850461094*^9}, 3.577450938612908*^9, 3.581406083161581*^9, 
   3.590728291020135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575644863181892*^9, 3.5772072416229053`*^9, 3.5772072872595153`*^9, 
   3.5772804008343725`*^9, 3.5774506853415833`*^9, {3.5774508264976974`*^9, 
   3.577450850461094*^9}, 3.577450938612908*^9, 3.581406083161581*^9, 
   3.5907282910891347`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575644863181892*^9, 3.5772072416229053`*^9, 3.5772072872595153`*^9, 
   3.5772804008343725`*^9, 3.5774506853415833`*^9, {3.5774508264976974`*^9, 
   3.577450850461094*^9}, 3.577450938612908*^9, 3.581406083161581*^9, 
   3.590728291147135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575644863181892*^9, 3.5772072416229053`*^9, 3.5772072872595153`*^9, 
   3.5772804008343725`*^9, 3.5774506853415833`*^9, {3.5774508264976974`*^9, 
   3.577450850461094*^9}, 3.577450938612908*^9, 3.581406083161581*^9, 
   3.590728291147135*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Jet Engine0", "Section",
 CellChangeTimes->{{3.522430442609375*^9, 3.522430450578125*^9}, 
   3.5908145655177603`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<JetEngine\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "brief", "=", "\"\<Calulates the mass of remaining fuel in tank\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentQ\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ResetComponentVariables", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.52243043575*^9, 3.522430437953125*^9}, 
   3.575787976591017*^9, 3.5769427107766676`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "uin", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Throttle setting 0-1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rho", ",", "1.25", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<The density at altitude h\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "Ta", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<Temperature at altitude h\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "p0", ",", "100000.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<Pressure at altitude h\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "Vsound", ",", "340.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Speed of sound at altitude h\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "speed", ",", "100.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Air speed\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305394375*^9, 3.5224305394375*^9}, {
   3.52243058465625*^9, 3.5224305981875*^9}, 3.52328822021875*^9, {
   3.5232883535*^9, 3.523288359328125*^9}, {3.531855769421875*^9, 
   3.531855790125*^9}, {3.531855974453125*^9, 3.53185600171875*^9}, {
   3.531856163125*^9, 3.531856187796875*^9}, {3.5411602367910447`*^9, 
   3.5411602434471664`*^9}, 3.590754090639737*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrustmax", ",", "5000.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Max thrust\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "SFC", ",", "0.0000171", " ", ",", "double", ",", "\"\<kg/(N s)\>\"", 
       ",", "\"\<Nominal thrust specific fuel consumption\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "BR", ",", "2", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Bypass ratio\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "thau", ",", "5.", ",", "double", ",", "\"\<s\>\"", ",", 
       "\"\<Engine time constant\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "Cspeed", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<thrust-speed coefficient\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430544015625*^9, 3.522430601609375*^9}, {
   3.522431017015625*^9, 3.5224310198125*^9}, 3.52328822196875*^9, {
   3.52328833575*^9, 3.5232883406875*^9}, {3.531855796109375*^9, 
   3.5318558308125*^9}, {3.531856011921875*^9, 3.531856035125*^9}, {
   3.541161713191944*^9, 3.54116171961386*^9}, {3.5411621661130204`*^9, 
   3.541162205831262*^9}, {3.5411623055956097`*^9, 3.5411623262047215`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "5000.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mfuel", ",", "0.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Burnt fuel amount\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "Shspeed", ",", "1.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<Engine shaft speed\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "qmfuel", ",", "1.", ",", "double", ",", "\"\<kg/s\>\"", ",", 
       "\"\<Fuel, mass flow\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305513125*^9, 3.522430551328125*^9}, {
   3.5224305858125*^9, 3.522430586890625*^9}, {3.522430995046875*^9, 
   3.522431007625*^9}, 3.523288224421875*^9, 3.523288345421875*^9, {
   3.53185590446875*^9, 3.531855936828125*^9}, {3.53185605765625*^9, 
   3.5318560964375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rho0", "=", "1.25"}], ";"}]], "Input",
 CellChangeTimes->{{3.541161597265424*^9, 3.541161599546805*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"thruste0", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"thrustmax", "*", "uin"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"thau", " ", "s"}], "+", "1"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.52243070378125*^9, 3.522430703796875*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"thrustmax", " ", "uin"}], 
  RowBox[{"1", "+", 
   RowBox[{"s", " ", "thau"}]}]]], "Output",
 CellChangeTimes->{
  3.531855478375*^9, 3.531855688515625*^9, 3.53185594609375*^9, 
   3.531856104859375*^9, {3.531856166875*^9, 3.531856194140625*^9}, 
   3.531856477640625*^9, 3.531856899515625*^9, 3.5318569805625*^9, 
   3.531857648234375*^9, 3.531857809203125*^9, 3.53185785196875*^9, {
   3.538722409978875*^9, 3.538722447885125*^9}, 3.538722569478875*^9, 
   3.5389775636615257`*^9, 3.5547158279058375`*^9, 3.5730570695164647`*^9, {
   3.5730585771356955`*^9, 3.573058582612009*^9}, 3.5756288744479065`*^9, 
   3.5756447922818365`*^9, 3.5772072417979155`*^9, 3.5772072873475204`*^9, 
   3.5772804009343786`*^9, 3.577450685438593*^9, {3.577450826609709*^9, 
   3.577450850558103*^9}, 3.5774509387249193`*^9, 3.5814060832835875`*^9, 
   3.590728291232135*^9, 3.5907541108574667`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"thrust", "==", 
      RowBox[{"thruste0", " ", 
       FractionBox["rho", "rho0"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"mfuel", "==", 
      RowBox[{"qmfuele", "/", "s"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243075090625*^9, 3.522430787703125*^9}, {
  3.5411615752641563`*^9, 3.5411615792800126`*^9}, {3.5718614338692064`*^9, 
  3.5718614389860153`*^9}, {3.571975732554068*^9, 3.5719757376082735`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", "=", 
   RowBox[{"{", 
    RowBox[{"thrust", ",", "mfuel"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430812890625*^9, 3.5224308593125*^9}, 
   3.571861468236067*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Shspeede", "=", 
  RowBox[{"Cspeed", "*", "thrust"}]}]], "Input",
 CellChangeTimes->{{3.52243072115625*^9, 3.52243072115625*^9}}],

Cell[BoxData[
 RowBox[{"Cspeed", " ", "thrust"}]], "Output",
 CellChangeTimes->{
  3.531855478421875*^9, 3.5318556885625*^9, 3.531855946125*^9, 
   3.531856104890625*^9, {3.53185616690625*^9, 3.531856194171875*^9}, 
   3.53185647765625*^9, 3.5318568995625*^9, 3.531856980609375*^9, 
   3.531857648296875*^9, 3.53185780925*^9, 3.531857852015625*^9, {
   3.53872241002575*^9, 3.538722447932*^9}, 3.538722569510125*^9, 
   3.5389775637084017`*^9, 3.5547158279370227`*^9, 3.5730570695634675`*^9, {
   3.5730585772147*^9, 3.573058582659012*^9}, 3.57562887448391*^9, 
   3.5756447923178387`*^9, 3.5772072418399177`*^9, 3.577207287394523*^9, 
   3.577280400984381*^9, 3.5774506854865975`*^9, {3.577450826662714*^9, 
   3.5774508506031075`*^9}, 3.5774509387719235`*^9, 3.5814060833465915`*^9, 
   3.590728291284135*^9, 3.5907541109042673`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qmfuele", "=", 
  RowBox[{"SFC", "*", "thrust"}]}]], "Input",
 CellChangeTimes->{{3.52243071571875*^9, 3.52243071571875*^9}}],

Cell[BoxData[
 RowBox[{"SFC", " ", "thrust"}]], "Output",
 CellChangeTimes->{
  3.5318554784375*^9, 3.531855688578125*^9, 3.531855946140625*^9, 
   3.53185610490625*^9, {3.531856166921875*^9, 3.5318561941875*^9}, 
   3.5318564776875*^9, 3.531856899578125*^9, 3.531856980625*^9, 
   3.5318576483125*^9, 3.53185780928125*^9, 3.531857852046875*^9, {
   3.538722410057*^9, 3.538722447947625*^9}, 3.53872256952575*^9, 
   3.5389775637240267`*^9, 3.5547158279526157`*^9, 3.5730570695954695`*^9, {
   3.573058577238702*^9, 3.5730585826900134`*^9}, 3.575628874503912*^9, 
   3.57564479233884*^9, 3.5772072418619184`*^9, 3.5772072874185247`*^9, 
   3.5772804010213833`*^9, 3.5774506855136003`*^9, {3.5774508266907167`*^9, 
   3.5774508506301107`*^9}, 3.5774509387979264`*^9, 3.5814060833735933`*^9, 
   3.5907282913141346`*^9, 3.5907541109198675`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Shspeed", "==", "Shspeede"}], ",", "\[IndentingNewLine]", 
     RowBox[{"qmfuel", "==", "qmfuele"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243073240625*^9, 3.52243073240625*^9}, {
   3.5224309366875*^9, 3.522430975828125*^9}, 3.52328836871875*^9, {
   3.571861445974828*^9, 3.5718614548980436`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.5907541109666677`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(2, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.5907541109666677`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\(\\(\\\"\\\" \[Ellipsis] \
\\\"\\\"\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroJetEngine.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \\\"AeroJetEngine.svg\\\"\\)\
\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.14285714285714285`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"uin\
\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 8 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"qmfuel\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\\"version\\\" \[Rule] \\\"0.1\\\"}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \
\\(\\({\\(\\(\\\"isopath\\\" \[Rule] \\\"AeroJetEngine.svg\\\"\\)\\), \
\\(\\(\\\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \
\[Rule] \\\"AeroJetEngine.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.14285714285714285`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"uin\
\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 9 \
\[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110982268*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.14285714285714285`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.14285714285714285`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.2857142857142857`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.2857142857142857`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.42857142857142855`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.42857142857142855`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.590728291370135*^9, 3.590754110997868*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Jet Engine", "Section",
 CellChangeTimes->{{3.522430442609375*^9, 3.522430450578125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<JetEngine\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "brief", "=", "\"\<Calulates the mass of remaining fuel in tank\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentQ\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ResetComponentVariables", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.52243043575*^9, 3.522430437953125*^9}, 
   3.575787976591017*^9, 3.5769427107766676`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "uin", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Throttle setting 0-1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rho", ",", "1.25", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<The density at altitude h\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "T", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<Temperature at altitude h\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "p0", ",", "100000.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<Pressure at altitude h\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "Vsound", ",", "340.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Speed of sound at altitude h\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "speed", ",", "100.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Air speed\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305394375*^9, 3.5224305394375*^9}, {
   3.52243058465625*^9, 3.5224305981875*^9}, 3.52328822021875*^9, {
   3.5232883535*^9, 3.523288359328125*^9}, {3.531855769421875*^9, 
   3.531855790125*^9}, {3.531855974453125*^9, 3.53185600171875*^9}, {
   3.531856163125*^9, 3.531856187796875*^9}, {3.5411602367910447`*^9, 
   3.5411602434471664`*^9}, 3.5908145788559313`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrustmax", ",", "38167.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Max thrust at Mach 1.2\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "SFC", ",", "0.0000266", ",", "double", ",", "\"\<kg/(N s)\>\"", ",", 
       "\"\<Nominal thrust specific fuel, at M=1,2\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "BR", ",", "2", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Bypass ratio\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "thau", ",", "5.", ",", "double", ",", "\"\<s\>\"", ",", 
       "\"\<Engine time constant\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Cspeed", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<thrust-speed coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ctm", ",", "0.315", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<mach-thrust coefficient\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Csfct", ",", "0.66", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<thrust-SFC coefficient\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Csfcm", ",", "0.697", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<mach-SFC coefficient\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430544015625*^9, 3.522430601609375*^9}, {
   3.522431017015625*^9, 3.5224310198125*^9}, 3.52328822196875*^9, {
   3.52328833575*^9, 3.5232883406875*^9}, {3.531855796109375*^9, 
   3.5318558308125*^9}, {3.531856011921875*^9, 3.531856035125*^9}, {
   3.541161713191944*^9, 3.54116171961386*^9}, {3.5411621661130204`*^9, 
   3.541162205831262*^9}, {3.5411623055956097`*^9, 3.5411623262047215`*^9}, {
   3.5877449371013727`*^9, 3.5877450349599695`*^9}, {3.5877465371368895`*^9, 
   3.587746559790185*^9}, {3.587746650897396*^9, 3.5877467406425295`*^9}, 
   3.5908145751742845`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "5000.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mfuel", ",", "0.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Burnt fuel amount\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Shspeed", ",", "1.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<Engine shaft speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "qmfuel", ",", "1.", ",", "double", ",", "\"\<kg/s\>\"", ",", 
       "\"\<Fuel, mass flow\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305513125*^9, 3.522430551328125*^9}, {
   3.5224305858125*^9, 3.522430586890625*^9}, {3.522430995046875*^9, 
   3.522431007625*^9}, 3.523288224421875*^9, 3.523288345421875*^9, {
   3.53185590446875*^9, 3.531855936828125*^9}, {3.53185605765625*^9, 
   3.5318560964375*^9}, {3.5908145768747063`*^9, 3.59081458186677*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rho0", "=", "1.25"}], ";"}]], "Input",
 CellChangeTimes->{{3.541161597265424*^9, 3.541161599546805*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"mach", "\[Equal]", 
      RowBox[{"speed", "/", "Vsound"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"thrustmaxe", "==", 
      RowBox[{"thrustmax", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Ctm", " ", "mach"}]}], ")"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SFCe", "==", 
       RowBox[{"SFC", " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"Csfct", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["thrust", "thrustmax"]}], ")"}]}], "+", " ", 
          RowBox[{"Csfcm", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "mach"}], ")"}]}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"qmfuele", "=", 
       RowBox[{"SFC", "*", "thrust"}]}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.587744265983987*^9, 3.587744320913129*^9}, {
   3.5877443616254573`*^9, 3.58774440660903*^9}, {3.587744456979911*^9, 
   3.587744483502428*^9}, {3.5877445264548845`*^9, 3.5877446116717587`*^9}, {
   3.587744645729707*^9, 3.5877447193669186`*^9}, 3.5877447829945583`*^9, {
   3.5877448169184985`*^9, 3.587744824688943*^9}, 3.587744912163946*^9, 
   3.587745080345566*^9, {3.5877451519126587`*^9, 3.5877452031995926`*^9}, 
   3.5877468496437635`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"thrust", "==", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"thrustmaxe", "*", "uin"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"thau", " ", "s"}], "+", "1"}], ")"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"mfuel", "==", 
      RowBox[{"qmfuele", "/", "s"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243075090625*^9, 3.522430787703125*^9}, {
   3.5411615752641563`*^9, 3.5411615792800126`*^9}, {3.5718614338692064`*^9, 
   3.5718614389860153`*^9}, {3.571975732554068*^9, 3.5719757376082735`*^9}, {
   3.587744061346282*^9, 3.587744082238477*^9}, 3.5877447212370257`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", "=", 
   RowBox[{"{", 
    RowBox[{"thrust", ",", "mfuel"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430812890625*^9, 3.5224308593125*^9}, 
   3.571861468236067*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Shspeed", "==", 
      RowBox[{"Cspeed", "*", "thrust"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"qmfuel", "==", "qmfuele"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243073240625*^9, 3.52243073240625*^9}, {
   3.5224309366875*^9, 3.522430975828125*^9}, 3.52328836871875*^9, {
   3.571861445974828*^9, 3.5718614548980436`*^9}, {3.5877447873398066`*^9, 
   3.5877447900979643`*^9}, {3.587744821417756*^9, 3.587744827351095*^9}, 
   3.5877448576218266`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], ":", 
  " ", "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.58774677020222*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], ":", 
  " ", "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.58774677020522*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], ":", 
  " ", "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(2, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.5877467702062197`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.5877467702472224`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroJetEngine.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \\\"AeroJetEngine.svg\\\"\\)\
\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.14285714285714285`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"uin\
\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 9 \
\[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"AeroJetEngine\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \\(\\(\
\[LeftSkeleton] 15 \[RightSkeleton]\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroJetEngine.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \\\"AeroJetEngine.svg\\\"\\)\
\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\
\\)\\)]\\)\[NoBreak] is not a list of contents. The third item in an \
XMLElement must be a list of contents, even if it is an empty list. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.587746770432233*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], ":", 
  " ", "\<\"Malformed symbolic XML expression encountered. This may result in \
unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.5877467704832363`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(0.14285714285714285`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.14285714285714285`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.5877467705442395`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], ":", 
  " ", "\<\"Malformed symbolic XML expression encountered. This may result in \
unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.58774677054624*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(0.2857142857142857`\\)\[NoBreak] in \[NoBreak]\\!\
\\(\\\"x\\\" \[Rule] 0.2857142857142857`\\)\[NoBreak] is not a valid value \
for an attribute in an XMLElement. The value of the attribute must be a \
string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.5877467705482397`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], ":", 
  " ", "\<\"Malformed symbolic XML expression encountered. This may result in \
unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.5877467705502396`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.58774677055224*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(0.42857142857142855`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.42857142857142855`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.58774677055424*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: \
attrhs\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.573057069639472*^9, {3.5730585772787037`*^9, 3.5730585827420163`*^9}, 
   3.575628874553917*^9, 3.575644792410844*^9, 3.5772072418959208`*^9, 
   3.577207287459527*^9, 3.577280401066386*^9, 3.577450685553604*^9, {
   3.577450826762724*^9, 3.5774508506701145`*^9}, 3.57745093883893*^9, 
   3.5814060834515977`*^9, 3.58774677055624*^9}],

Cell[BoxData["\<\"AeroJetEngine.xml\"\>"], "Output",
 CellChangeTimes->{
  3.538722569603875*^9, 3.538977563833402*^9, 3.554715828046171*^9, 
   3.5730570696694736`*^9, {3.5730585773167057`*^9, 3.573058582783019*^9}, 
   3.5756288745649185`*^9, 3.5756447927358627`*^9, 3.577207241973925*^9, 
   3.5772072874865284`*^9, 3.577280401100388*^9, 3.577450685588608*^9, {
   3.577450826772725*^9, 3.577450850702118*^9}, 3.577450938871934*^9, 
   3.5814060834635983`*^9, 3.587746770573241*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Propeller", "Section",
 CellChangeTimes->{{3.522430442609375*^9, 3.522430450578125*^9}, {
  3.555912111016549*^9, 3.555912112485299*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Propeller\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Model of a propeller\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ResetComponentVariables", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.52243043575*^9, 3.522430437953125*^9}, {
   3.555912115813424*^9, 3.555912150141549*^9}, 3.5757879776674304`*^9, 
   3.576942702695205*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Up", ",", "1.25", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Air speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rho", ",", "1.25", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Air density\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305394375*^9, 3.5224305394375*^9}, {
   3.52243058465625*^9, 3.5224305981875*^9}, 3.52328822021875*^9, {
   3.5232883535*^9, 3.523288359328125*^9}, {3.531855769421875*^9, 
   3.531855790125*^9}, {3.531855974453125*^9, 3.53185600171875*^9}, {
   3.531856163125*^9, 3.531856187796875*^9}, {3.5411602367910447`*^9, 
   3.5411602434471664`*^9}, 3.5559123321420507`*^9, {3.55594922259375*^9, 
   3.555949263484375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dp", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.5774508197080183`*^9, 3.5774508461676645`*^9}, {
  3.577450932163263*^9, 3.5774509347525215`*^9}, {3.579115489951048*^9, 
  3.579115494897331*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "dp", ",", "1.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller diameter\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "b1", ",", "0.2", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller thrust coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "b2", ",", "0.2", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller thrust coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "g1", ",", "0.205", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "g2", ",", "0.2", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ct0", ",", "0.12", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "cp0", ",", "0.08", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "k", ",", "4", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<exponent for transition\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430544015625*^9, 3.522430601609375*^9}, {
   3.522431017015625*^9, 3.5224310198125*^9}, 3.52328822196875*^9, {
   3.52328833575*^9, 3.5232883406875*^9}, {3.531855796109375*^9, 
   3.5318558308125*^9}, {3.531856011921875*^9, 3.531856035125*^9}, {
   3.541161713191944*^9, 3.54116171961386*^9}, {3.5411621661130204`*^9, 
   3.541162205831262*^9}, {3.5411623055956097`*^9, 3.5411623262047215`*^9}, {
   3.555912340360853*^9, 3.5559123619703665`*^9}, {3.555912401689371*^9, 
   3.5559124347520823`*^9}, {3.555912932927146*^9, 3.555912945817853*^9}, {
   3.555913203147625*^9, 3.5559132086945353`*^9}, {3.555945723875*^9, 
   3.555945778375*^9}, {3.555946056125*^9, 3.555946057140625*^9}, {
   3.555946906875*^9, 3.55594692371875*^9}, 3.55594922825*^9, 
   3.555949390765625*^9, {3.5608513081183796`*^9, 3.56085136317197*^9}, {
   3.5608514552662325`*^9, 3.560851476872371*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "500.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "torque", ",", "0.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pin", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Input power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pout", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Output Power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Jp", ",", "0.", ",", "double", ",", "\"\< \>\"", ",", 
       "\"\<Advance rate\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305513125*^9, 3.522430551328125*^9}, {
   3.5224305858125*^9, 3.522430586890625*^9}, {3.522430995046875*^9, 
   3.522431007625*^9}, 3.523288224421875*^9, 3.523288345421875*^9, {
   3.53185590446875*^9, 3.531855936828125*^9}, {3.53185605765625*^9, 
   3.5318560964375*^9}, {3.555912989365007*^9, 3.5559129923181505`*^9}, {
   3.55594578775*^9, 3.555945815578125*^9}, {3.5559896357679014`*^9, 
   3.555989666596224*^9}, {3.5559900141312447`*^9, 3.5559900372252903`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"MechanicRotCnode", "[", 
     RowBox[{
     "mr1", ",", "0.", ",", "0.", ",", "\"\<Mechanical rot.connection\>\""}], 
     "]"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.555945986890625*^9, 3.555945987671875*^9}, 
   3.5559881614277153`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ct0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.560851541476918*^9, 3.560851556687016*^9}, {
  3.56085163076124*^9, 3.560851638686091*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ct1", "=", 
   RowBox[{"b1", "-", 
    RowBox[{"b2", " ", "Jpe"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp1", "=", 
   RowBox[{"g1", "-", 
    RowBox[{"g2", " ", "Jpe"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.555931492906174*^9, 3.5559315232969933`*^9}, {
   3.555940258109375*^9, 3.55594027396875*^9}, {3.555940336875*^9, 
   3.555940382640625*^9}, {3.555940524578125*^9, 3.555940542*^9}, 
   3.55594057240625*^9, {3.555940920703125*^9, 3.55594095309375*^9}, {
   3.555941001953125*^9, 3.55594109125*^9}, {3.555941317453125*^9, 
   3.55594132215625*^9}, {3.5559486410625*^9, 3.555948643921875*^9}, {
   3.555948706546875*^9, 3.555948707921875*^9}, {3.5559899821152096`*^9, 
   3.5559899836308537`*^9}, {3.5608515001009197`*^9, 3.5608515011305265`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ct", ":=", 
   RowBox[{
    FractionBox["ct1", 
     RowBox[{"Abs", "[", "ct1", "]"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["1", "ct0"], ")"}], "k"], "+", 
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "ct1", "]"}], "k"]]}]], ")"}], 
     RowBox[{"1", "/", "k"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp", ":=", 
   RowBox[{
    FractionBox["cp1", 
     RowBox[{"Abs", "[", "cp1", "]"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["1", "cp0"], ")"}], "k"], "+", 
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "cp1", "]"}], "k"]]}]], ")"}], 
     RowBox[{"1", "/", "k"}]]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.560851507167765*^9, 3.5608515203030496`*^9}, {
  3.5608516954195814`*^9, 3.560851707328209*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b1", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=", "0.205"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ct0", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp0", "=", "0.08"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jpe", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.5608357445785418`*^9, 3.560835770076603*^9}, {
  3.560850123615588*^9, 3.5608501252223983`*^9}, {3.560851056497853*^9, 
  3.5608511188048477`*^9}, {3.5608511681428423`*^9, 3.56085116904766*^9}, {
  3.560851717156209*^9, 3.5608517356700087`*^9}, {3.5608517820296087`*^9, 
  3.5608518031208086`*^9}, {3.560851858622409*^9, 3.560851867389609*^9}}],

Cell["\<\
The trust and power coefficients are plotted below. The curves are symetric \
although in reality the curves are different abouve Jpe = 1. The normal mode \
of operation is however, with positive coefficients. The behavior here would \
be accurate  with a symetric profile.\
\>", "Text",
 CellChangeTimes->{{3.560852064527809*^9, 3.560852226939209*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ct", ",", "cp"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Jpe", ",", "0", ",", "1.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5608357732980704`*^9, 3.5608358123460417`*^9}, {
   3.5608358976340613`*^9, 3.5608359247198534`*^9}, {3.5608477314769506`*^9, 
   3.560847736307266*^9}, 3.5608491784740257`*^9, {3.5608516790784435`*^9, 
   3.560851680334285*^9}, {3.560852042750209*^9, 3.5608520467282085`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzHk41HkAx3GFVZ5UhHYL22V2KI9WW+uIz+qOpOTI0eQaWUmSUoMMIVsz
cnQ4cozUsHSgH4vJl80x1vUo5VFRJGscuf2c2faP9/P6773e9awVe7GUlJTF
t/53ytwn5chZZ5MJN4c7i8QiRLr/xGximOB8z5T1qRoRGr50e/EZh6Gworq1
vlqE4YLdPG8GC88tw7TuVokQpjqm5sTwweHaxBnmCxHqasw+H2NcgWz9ayPT
MhHOpl+stWREQ+sxJ2j3MxEqeLxSC0Yq3i6xfx+VJoLsd35yEq8naNE5ED/o
I8LBEJcIyrYIkQN+i27uFKHoMrv9QXMZwivuqwzLitDmcFrXL+AF2qfNxWqV
pVDcz/eo+K0GWWZznMqQUqxsYef/6liHqNfclSY6pdi4zjs7wrUJge+DBBkv
S6DffqbONK4ZpltiJXz/ElTMcA+1JL8C6+YEd3BxCTyJWFwW9hp3FK2D6njF
SHQTrlFxbkXZQ7nc6GXF0DneOfmV3QaPBHPnHX5/oWPMsvG3g+/AZuhUFb8s
wuiHH7aq2rRj35egE/mrihCTwzllZ/cBM80ZsoI9hWCsWGJxKfkjlBqOeuqf
o1Doy82JTuuEUWXHiGXAM7RoxssdjeuC3hTniDenAJuuvmKeSPyE3i3E/8dj
+TA48uGXtORuNDpbmR9Qy0O7b4QJn/cZs5190Gt+gnwDe4Wq2B5sy1N3DVB6
BFXbmrasiH/hxE51CnP/E+iSiv3bvxcJab2yrTlCJKp6KjAuSVCeJS2IEmQi
LPX3a9u9+vBoznsru0SAlMaE6mjffgSphb3hL09BsE/8sLrfAH4+VOw9n38H
/S7M7+1dByFm2nK1S2JwY75PpsPjC/oHTkZ2nw9HycD+oeUOQ4hzyrRSSPDF
G039LsNNw8CeZM2eWSfiqeWmG/9gGMJVNvYHo7mkwtYx0FRjBKRGUWx2j0e2
He/LVhaMICSklD/ZfIt4X93Xarx2FPWUDJgdSSTKY8nMovhRuEqMhV2sdPJc
3WWhT3kMwcJu5cSw+6T4a6S0dvQYJg/tDM9weUgaC3b38RXH0VTGMZR4ZpOq
dR7VvLhxGIV2XRLszyXhRTaCTvkJDPm38gzbHhOnDe9ZjvwJPEwpN6PJUzJb
qLt2s9wkBv2sz6zvzyNB0pL621cmcWGpI7f+az5R3WTgoilFY42M9ZnTKs9I
gI/tuPxlGp6V7KIBWYqo7XAXMwJpYIvR0NhSipTPn7u3K5jGXlZb3rQCReT5
/D2cUBo+em9bpVQpkppTeUvyB42c5KHseU2KVPfqbRcn0WDtVeLm7aWIstuK
ixEiGqfrb7xdHE6RYm11M0EZDZWkceG7axRhjWprPC+nIak+KVNwgyJZofuq
xytppFl98joRTxGj9GBV9wYaGsG7xtIzKOLa3l+4q4PGtgXJ6k/lFJF7MH2d
9ZHGu9WtksxKiuR6y53kdNGwcYm1YIspMjm7QS6/h8Y/TN26ziaKXF/jYLd+
iMYVfb/M2g6K6Had2mw8QsPxNlOe20WRluwLC8fHvv00DaW391BEwyBWGEPT
MBMaP00apMgLqbTA3GkatXN33c1HKOIpzrUUz9LQOqzxaGacIstiSjZ2z9MI
b5C9njVFkTw7Mb2wQCNUKXzWeo4i/wGhW4U2
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3881HcAx/FrWuehpSndykWIy4/1sFZNaryXGkVKayHKIpxfwzzKb/Kj
i8lJyZbfv6Lzu+/dlbTySX50jVhR5lEkUTnlcPjKz9kfr8fr8dRy9f/J/TMG
g2Gz2P+fsvbLtvU/aZbA2FogZ4lx3m2TXhvHDOL50dNPF/14uN+bzzmIu9OW
JtSiR0R7knw5zlB2yPjDb9GxLPn64xw/eKcsKXy/Rozmh1YDRzhR2HxFZbZL
VQz/vKBHhzjJWC6bCKZWiVGXlPSXDScHhvU/tmxRFuPzZYHMQe8qaLEZFxIU
xNh/1oV3064aLikNz22nRKgOde8uelKLD8c6ufIhEbocfYwCg+sxqFicW/9S
BBVLvkfdDw9h68haKWgR4csOd6GxUzOIzfD4ndsibNT0LeG5tiFVIUt/V4EI
O7p/bd59+QnW8QorNiWKUDcdfaAjsx2WmrXmKr4ieBKJpDb2GWaNr99LsRYh
/dR1tTUnO/Gu6KNpG0eEzQ6vJ+fdu5D4hJXvPyVEj/xQ6w/7X6Cr+8q5kUYh
xl6t+4Z1tBsuWtzZVp4QKWVhXHv7VzBmN9XH7xKCs1LRJiSzF1wLKmOPlMKt
gOiy5NzXqIb/QFkshQ7dVObhy33YVtH2iKlCQSeuXe9E+hucuaY+7R99Aya2
r7blZvbDp/HE9GFRFboDeGb8pAG8kFr/E2VVCaHJsRWNl94inL3MzTShHCy7
h10C3jsMaH5v7FpSCvQxLj04/R4DoUpRh7MESGd5ruCEDGJ2naWCB6cYsTle
8du9pbi9UleSUVyI7NarTckBQxD8e15bcD8PkX6pI+qBH/CGnbydxGZiyEVv
7THXj7AM0Q8Jr0nDhTnp0h6PYbSL7JqN8pNx54OlTNlRBtWCKodt8bF4rruj
b6fOCAT1wa6CYG946p8ySi0awUJHaNLcXi9SZ+cUvltjFIUx1hZRJ2PJVgdp
iWr+KOR/l3W/cbtIfOMsOk3ZY+A1Vc5UitNIgofi9JLUMSx92sxuD80k99Rd
FqSqcmjcZWfTD/JIzfx5BYNkOcx9mJv3BRaSVtEeKV9lHKJklaksg2LSqOnR
lHR5HKqd+RpDWQJyrvpo/mulCQTK6IqvK0rJce2Xzk78CSwoPVsiKy0nM7eM
2IbMSVzlxJ27eKCSRCgMtqRFTWJkU234FmEVYemYuOgyaFxL3RcXEn2DBPvZ
jSuF0hg8smrAbBlF1n/nJuGE02jWyeZwFSlyf+63LPNIGhPSncN8JYoo8fl7
w2JoJLhhdacyRXLKGq4M/k6jqOjnx/ZfUaTp/bfbJRk05lcES1brUUT11Mog
3l0aqOhgRuyjSI2BulV+LQ21P8MeBFlRxHnMQOPefRpHGS4bAg5QRBBj0TTe
QGPUiVvvbEuRXXmRLLfHNHI2pLUYOlDEtXvolnkPjYj1Edd4XIowiz4lOvfS
CNaukXp7UaTcl/lLWB+N0uFPvQd9KDI5o80UvqWxNmK4d5U/RRLVHO21ZDT0
zb0sLgRRxKiPa2g6SkNvR5KORwhFOkrOLDjIacgGw2oQRhENk0vXU2gaBUy1
5bJIitQzcsPLP9EInQ551HCWIp6S8kOSGRo9Nxnm6TEU+SLlzsb+ORretfFn
fOMoQtlL6IUFGqet+93MeBT5D5eOeMU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1.5}, {-0.08588153019452173, 0.11242685242395097`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5608358137345405`*^9, {3.5608358897771664`*^9, 3.5608359920932994`*^9}, 
   3.560847736990616*^9, {3.5608491595357475`*^9, 3.560849273425624*^9}, 
   3.560849328001081*^9, 3.5608493961175365`*^9, 3.560849434983737*^9, 
   3.560850127952416*^9, 3.5608503075329723`*^9, 3.560850359699707*^9, {
   3.5608510614556894`*^9, 3.5608511203492775`*^9}, {3.560851159812282*^9, 
   3.560851204085933*^9}, {3.5608516889299393`*^9, 3.560851698960804*^9}, 
   3.560851739913209*^9, 3.5608518284676085`*^9, {3.560851872459609*^9, 
   3.5608518746904087`*^9}, {3.5608519112150087`*^9, 3.560851938093809*^9}, {
   3.5608519729910088`*^9, 3.560852000062009*^9}, {3.5608520512522087`*^9, 
   3.560852054481409*^9}, 3.560852569978809*^9, 3.5608526815568085`*^9, 
   3.561034454955637*^9, {3.5610344978690915`*^9, 3.5610345149520683`*^9}, 
   3.573057069832483*^9, {3.573058578212757*^9, 3.5730585836870704`*^9}, 
   3.575628874700932*^9, 3.5756295359790535`*^9, 3.5756447928778706`*^9, 
   3.5772072420979323`*^9, 3.577207288370579*^9, 3.577280401980438*^9, 
   3.5774506857126207`*^9, {3.5774508278378315`*^9, 3.577450851757223*^9}, 
   3.5774509398880353`*^9, 3.579115498621544*^9, 3.581406083617607*^9, 
   3.590728291553135*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ct0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.560851541476918*^9, 3.560851556687016*^9}, {
  3.56085163076124*^9, 3.560851638686091*^9}}],

Cell[CellGroupData[{

Cell[BoxData["ct"], "Input",
 CellChangeTimes->{{3.5608518359088087`*^9, 3.560851836220809*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"b1", "-", 
     RowBox[{"b2", " ", "Jpe"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["1", "ct0"], ")"}], "k"], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{"b1", "-", 
          RowBox[{"b2", " ", "Jpe"}]}], "]"}], 
        RowBox[{"-", "k"}]]}]], ")"}], 
    FractionBox["1", "k"]]}], 
  RowBox[{"Abs", "[", 
   RowBox[{"b1", "-", 
    RowBox[{"b2", " ", "Jpe"}]}], "]"}]]], "Output",
 CellChangeTimes->{
  3.560851836969609*^9, {3.5608518785280085`*^9, 3.560851938359009*^9}, {
   3.560851991258609*^9, 3.560852000202409*^9}, 3.560852570088009*^9, 
   3.560852681900009*^9, 3.573057069863485*^9, {3.5730585782947617`*^9, 
   3.573058583763075*^9}, 3.575628874727935*^9, 3.575629536101065*^9, 
   3.5756447929038725`*^9, 3.577207242126934*^9, 3.577207288511587*^9, 
   3.577280402117446*^9, 3.5774506857476234`*^9, {3.5774508281888666`*^9, 
   3.577450852096257*^9}, 3.57745094023707*^9, 3.579115498652546*^9, 
   3.5814060836566095`*^9, 3.590728291676135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["cp"], "Input",
 CellChangeTimes->{{3.560852004976009*^9, 3.5608520065984087`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"g1", "-", 
     RowBox[{"g2", " ", "Jpe"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["1", "cp0"], ")"}], "k"], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{"g1", "-", 
          RowBox[{"g2", " ", "Jpe"}]}], "]"}], 
        RowBox[{"-", "k"}]]}]], ")"}], 
    FractionBox["1", "k"]]}], 
  RowBox[{"Abs", "[", 
   RowBox[{"g1", "-", 
    RowBox[{"g2", " ", "Jpe"}]}], "]"}]]], "Output",
 CellChangeTimes->{
  3.560852007409609*^9, 3.560852570166009*^9, 3.5608526819936085`*^9, 
   3.5730570698904862`*^9, {3.5730585783207636`*^9, 3.573058583803077*^9}, 
   3.5756288747489367`*^9, 3.575629536127068*^9, 3.5756447929248734`*^9, 
   3.5772072421519356`*^9, 3.5772072885345883`*^9, 3.577280402148448*^9, 
   3.5774506857716265`*^9, {3.5774508282318707`*^9, 3.5774508521352606`*^9}, 
   3.5774509402780743`*^9, 3.5791154986845474`*^9, 3.581406083683611*^9, 
   3.5907282917071347`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nmp", "=", 
  RowBox[{"60", 
   FractionBox["wmr1", 
    RowBox[{"2", " ", "pi"}]]}]}]], "Input",
 CellChangeTimes->{{3.555948676828125*^9, 3.55594868828125*^9}, {
  3.555992878628854*^9, 3.5559929062229567`*^9}}],

Cell[BoxData[
 RowBox[{"9.54929658551372014613302580235085772265`6.", " ", 
  "wmr1"}]], "Output",
 CellChangeTimes->{
  3.555997021278448*^9, 3.555997509169186*^9, 3.560851828608009*^9, 
   3.560851911402209*^9, 3.5608525702596087`*^9, 3.5608526820872087`*^9, 
   3.5730570699184875`*^9, {3.573058578347765*^9, 3.5730585838360786`*^9}, 
   3.5756288747679386`*^9, 3.5756295361530704`*^9, 3.5756447929438744`*^9, 
   3.5772072421779366`*^9, 3.5772072885575895`*^9, 3.577280402174449*^9, 
   3.577450685797629*^9, {3.577450828268874*^9, 3.5774508521702642`*^9}, 
   3.577450940313078*^9, 3.579115498707549*^9, 3.5814060837086124`*^9, 
   3.5907282917361345`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nsp", "=", 
  FractionBox["wmr1", 
   RowBox[{"2", " ", "pi"}]]}]], "Input",
 CellChangeTimes->{{3.555948676828125*^9, 3.55594868828125*^9}, {
  3.555992878628854*^9, 3.555992894316554*^9}}],

Cell[BoxData[
 RowBox[{"0.15915494309189533576888376337251429538`6.", " ", 
  "wmr1"}]], "Output",
 CellChangeTimes->{
  3.555948850453125*^9, 3.555949164515625*^9, 3.555949305640625*^9, 
   3.555949397546875*^9, 3.555988290278137*^9, 3.555990080913349*^9, 
   3.555997021294075*^9, 3.5559975091848116`*^9, 3.5608518286860085`*^9, 
   3.560851911480209*^9, 3.560852570337609*^9, 3.5608526821964087`*^9, 
   3.5730570699494896`*^9, {3.5730585783887672`*^9, 3.5730585838640804`*^9}, 
   3.575628874789941*^9, 3.575629536178073*^9, 3.575644792963876*^9, 
   3.577207242201938*^9, 3.5772072885815907`*^9, 3.5772804021994505`*^9, 
   3.5774506858216314`*^9, {3.577450828304878*^9, 3.5774508522062683`*^9}, 
   3.5774509403460813`*^9, 3.57911549873155*^9, 3.581406083743614*^9, 
   3.5907282917661347`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Jpe", "=", 
  FractionBox["Up", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{".00001", "+", "nsp"}], ")"}], " ", "dp"}]]}]], "Input",
 CellChangeTimes->{
  3.555948669671875*^9, {3.5559492923125*^9, 3.555949292546875*^9}, 
   3.5559899860996356`*^9, 3.5559928883946037`*^9, 3.555997448151218*^9, {
   3.555997856238852*^9, 3.5559978789110174`*^9}}],

Cell[BoxData[
 FractionBox["Up", 
  RowBox[{"dp", " ", 
   RowBox[{"(", 
    RowBox[{"0.00001`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.15915494309189533576888376337251429538`6.", " ", "wmr1"}]}], 
    ")"}]}]]], "Output",
 CellChangeTimes->{
  3.55594885046875*^9, 3.55594916453125*^9, 3.55594930565625*^9, 
   3.555949397578125*^9, 3.555988290340656*^9, 3.555990080928974*^9, 
   3.5559970213097014`*^9, 3.5559975092004375`*^9, 3.5608518287796087`*^9, 
   3.5608519115426087`*^9, 3.560852570415609*^9, 3.5608526822900085`*^9, 
   3.573057069983492*^9, {3.573058578417769*^9, 3.573058583890082*^9}, 
   3.5756288748099427`*^9, 3.5756295362020755`*^9, 3.5756447929838767`*^9, 
   3.5772072422259398`*^9, 3.5772072886035924`*^9, 3.5772804022274523`*^9, 
   3.5774506858456335`*^9, {3.577450828342882*^9, 3.5774508522372713`*^9}, 
   3.5774509403800845`*^9, 3.5791154987535515`*^9, 3.5814060837866163`*^9, 
   3.590728291797135*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"thrust", "==", 
      RowBox[{"ct", " ", "rho", " ", 
       SuperscriptBox["nsp", "2"], 
       SuperscriptBox["dp", "4"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cmr1", "==", 
      FractionBox[
       RowBox[{"cp", " ", "rho", " ", 
        SuperscriptBox["nsp", "2"], 
        SuperscriptBox["dp", "5"]}], 
       RowBox[{"2", " ", "pi", " "}]]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243075090625*^9, 3.522430787703125*^9}, {
   3.5411615752641563`*^9, 3.5411615792800126`*^9}, {3.5559130501310205`*^9, 
   3.555913151741046*^9}, {3.555945828640625*^9, 3.55594583028125*^9}, 
   3.5559460309375*^9, 3.5559487771875*^9, {3.5559895528923707`*^9, 
   3.55598955975179*^9}, {3.5559974605110674`*^9, 3.555997462651775*^9}, {
   3.5559978089567947`*^9, 3.5559978113474655`*^9}, {3.5608522969922085`*^9, 
   3.5608523223266087`*^9}, {3.571861397162342*^9, 3.5718614029811525`*^9}, 
   3.571975695567891*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"systemVariables", "=", 
  RowBox[{"{", 
   RowBox[{"thrust", ",", "cmr1"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.522430812890625*^9, 3.5224308593125*^9}, {
   3.555946089578125*^9, 3.55594609040625*^9}, 3.555948785578125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"thrust", ",", "cmr1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.531855478453125*^9, 3.531855688609375*^9, 3.53185594615625*^9, 
   3.531856104921875*^9, {3.5318561669375*^9, 3.531856194203125*^9}, 
   3.531856477703125*^9, 3.531856899609375*^9, 3.531856980640625*^9, 
   3.53185764834375*^9, 3.531857809296875*^9, 3.5318578520625*^9, {
   3.53872241008825*^9, 3.538722447978875*^9}, 3.538722569541375*^9, 
   3.5389775637396517`*^9, 3.5547158279682083`*^9, 3.555948850515625*^9, 
   3.555949164578125*^9, 3.555949305703125*^9, 3.555949397609375*^9, 
   3.5559882906688776`*^9, 3.55599008097585*^9, 3.5559970213565807`*^9, 
   3.5559975092629395`*^9, 3.560851829169609*^9, 3.560851911729809*^9, 
   3.5608525708368087`*^9, 3.5608526825084085`*^9, 3.573057070028494*^9, {
   3.573058578454771*^9, 3.573058583926084*^9}, 3.575628874840946*^9, 
   3.5756295362420797`*^9, 3.5756447930118785`*^9, 3.5772072422599416`*^9, 
   3.577207288637594*^9, 3.5772804022644544`*^9, 3.577450685881637*^9, {
   3.5774508283958874`*^9, 3.5774508522872763`*^9}, 3.577450940427089*^9, 
   3.5791154987865534`*^9, 3.5814060838386197`*^9, 3.590728291836135*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"torque", "==", "cmr1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zcmr1", "==", "0."}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pin", "==", 
      RowBox[{"cmr1", " ", "wmr1"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pout", "==", 
      RowBox[{"thrust", " ", "Up"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Jp", "==", "Jpe"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243073240625*^9, 3.52243073240625*^9}, {
   3.5224309366875*^9, 3.522430975828125*^9}, 3.52328836871875*^9, {
   3.55594587621875*^9, 3.555945881484375*^9}, {3.555946006609375*^9, 
   3.555946012484375*^9}, {3.555948795484375*^9, 3.55594883978125*^9}, 
   3.5559882575028663`*^9, {3.555989581955057*^9, 3.5559896267365932`*^9}, {
   3.5559899967403965`*^9, 3.5559900067874002`*^9}, {3.5718613682710915`*^9, 
   3.571861392700734*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Unset", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(Up\\)\[NoBreak] is Protected. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Unset::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292225135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"AeroPropeller\\\"\\)\\), \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroPropeller.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \\\"AeroPropeller.svg\\\"\\)\
\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.5`\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Pmr1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] \
6 \[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\
\\(\\\"x\\\" \[Rule] \\\"0.833333\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"Jp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\
\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\\"version\\\" \[Rule] \\\"0.1\\\"}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"AeroPropeller\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \
\\\"AeroPropeller\\\"\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroPropeller.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \\\"AeroPropeller.svg\\\"\\)\
\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.5`\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Pmr1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] \
7 \[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292226135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292226135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"y\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.5907282922271347`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292228135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.3333333333333333`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.3333333333333333`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292228135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.5907282922291346`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.5907282922291346`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.6666666666666666`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.6666666666666666`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292230135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.560852572131609*^9, 3.5608526836160088`*^9, 3.5730570700874977`*^9, {
   3.5730585784967737`*^9, 3.5730585839700866`*^9}, 3.5756288751989813`*^9, 
   3.575629536539109*^9, 3.5756447933889*^9, 3.5772072422889433`*^9, 
   3.577207288978614*^9, 3.577280402608474*^9, 3.5774506867957287`*^9, {
   3.5774508290719547`*^9, 3.5774508529253397`*^9}, 3.577450940943141*^9, 
   3.5791154991705756`*^9, 3.5814060842186413`*^9, 3.590728292231135*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Atmosphere", "Section",
 CellChangeTimes->{{3.519403038390625*^9, 3.51940305140625*^9}, 
   3.5194031728125*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Atmosphere\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<model of standard atmosphere\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.51940313565625*^9, 3.51940317146875*^9}, {
   3.5233289372998676`*^9, 3.523328937534253*^9}, {3.523329037851247*^9, 
   3.5233290388981686`*^9}, 3.5757879805534678`*^9, 3.577207200533555*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "ha", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
      "\"\<Altitude\>\""}], "}"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.51940354403125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "g0", ",", "9.81", ",", "double", ",", "\"\<m/s^2\>\"", ",", 
       "\"\<Gravitation acceleration\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "rhos", ",", "1.225", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Density at sea level\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"a", ",", 
       RowBox[{"-", "0.0065"}], ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "R", ",", "287", ",", "double", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "gamma", ",", "1.4", ",", "double", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ts", ",", "288.16", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<Temperature at sea level\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "p0s", ",", "101300.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "htp", ",", "11000.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Onset of tropopaus\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ttp", ",", "216.66", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ptp", ",", "22610.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhotp", ",", "0.363649", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"e", ",", 
       RowBox[{"N", "[", 
        RowBox[{"E", ",", "6"}], "]"}], ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<e\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.519403373171875*^9, 3.519403523078125*^9}, {
  3.519403695984375*^9, 3.519403709171875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "rhoa", ",", "1.25", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<The average density at altitude h\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ta", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<Average temperature at altitude h\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "p0", ",", "100000.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<The average ressure at altitude h\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Vsound", ",", "340.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Speed of sound at altitude h\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.519403376546875*^9, 3.519403377359375*^9}, {
  3.5756288284113035`*^9, 3.575628835670029*^9}, {3.5907262729633417`*^9, 
  3.5907262901293416`*^9}, {3.5907264583513412`*^9, 3.5907265034523416`*^9}}],

Cell[BoxData[
 RowBox[{"Taexp", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"onNegative", "[", 
     RowBox[{"ha", "-", "htp"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ts", "+", 
      RowBox[{"a", " ", "ha"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"onPositive", "[", 
     RowBox[{"ha", "-", "htp"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"Ts", "+", 
      RowBox[{"a", " ", "htp"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5907263878723416`*^9, 3.5907263887603416`*^9}}],

Cell[BoxData[
 RowBox[{"p0exp", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"onNegative", "[", 
     RowBox[{"ha", "-", "htp"}], "]"}], " ", "p0s", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Ta", "/", "Ts"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"g0", "/", 
         RowBox[{"(", 
          RowBox[{"a", " ", "R"}], ")"}]}], ")"}]}], ")"}]}]}], "+", 
   RowBox[{
    RowBox[{"onPositive", "[", 
     RowBox[{"ha", "-", "htp"}], "]"}], " ", "ptp", "*", 
    RowBox[{"e", "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"g0", "/", 
          RowBox[{"(", 
           RowBox[{"R", " ", "Ttp"}], ")"}]}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{"ha", "-", "htp"}], ")"}]}], ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{
  3.554787466577104*^9, 3.579115424396299*^9, {3.5907264439533415`*^9, 
   3.5907264447263412`*^9}, 3.590728329360135*^9}],

Cell[BoxData[
 RowBox[{"rhoaexp", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"onNegative", "[", 
     RowBox[{"ha", "-", "htp"}], "]"}], " ", "rhos", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Ta", "/", "Ts"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"g0", "/", 
           RowBox[{"(", 
            RowBox[{"a", " ", "R"}], ")"}]}], "+", "1"}], ")"}], ")"}]}], 
      ")"}]}]}], "+", 
   RowBox[{
    RowBox[{"onPositive", "[", 
     RowBox[{"ha", "-", "htp"}], "]"}], " ", "rhotp", "*", 
    RowBox[{"e", "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"g0", "/", 
          RowBox[{"(", 
           RowBox[{"R", " ", "Ttp"}], ")"}]}], ")"}]}], 
       RowBox[{"(", 
        RowBox[{"ha", "-", "htp"}], ")"}]}], ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.519403334328125*^9, 3.519403334328125*^9}, 
   3.554787470280182*^9, 3.5791154259443874`*^9, {3.5907264101943417`*^9, 
   3.5907264109133415`*^9}, 3.590728344070135*^9}],

Cell[BoxData[
 RowBox[{"Vsoundexp", ":=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"gamma", " ", "R", " ", "Ta"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.51940299775*^9, 3.5791154361819725`*^9, {3.590728365145135*^9, 
   3.590728365976135*^9}, 3.590728417039135*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Ta", "==", "Taexp"}], ",", "\[IndentingNewLine]", 
     RowBox[{"rhoa", "==", "rhoaexp"}], ",", "\[IndentingNewLine]", 
     RowBox[{"p0", "==", "p0exp"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Vsound", "==", "Vsoundexp"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5756287610145645`*^9, 3.575628817553218*^9}, {
  3.579115438047079*^9, 3.5791154421793156`*^9}, {3.5907262177643414`*^9, 
  3.5907262524963417`*^9}, {3.5907263959443417`*^9, 3.5907264397643414`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"AeroAtmosphere\\\"\\)\\), \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroAtmosphere.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroAtmosphere.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.5`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"ha\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"Vsound\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \
\[Ellipsis] \\\"\\\"\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"AeroAtmosphere\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \
\\\"AeroAtmosphere\\\"\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\
\", \\(\\({\\(\\(\\\"isopath\\\" \[Rule] \\\"AeroAtmosphere.svg\\\"\\)\\), \
\\(\\(\\\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \
\[Rule] \\\"AeroAtmosphere.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.5`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"ha\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 4 \
\[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5547872768735924`*^9, 3.554787513217132*^9, 3.5756288758960514`*^9, 
   3.5756447941149416`*^9, 3.5772072429499807`*^9, 3.5772072891306224`*^9, 
   3.577280402782484*^9, 3.577450687428792*^9, {3.5774508296490126`*^9, 
   3.577450853466394*^9}, 3.577450941501197*^9, 3.5791154600573387`*^9, 
   3.5791155759359665`*^9, 3.5814060845706615`*^9, 3.5907265322933416`*^9, 
   3.590726594199342*^9, {3.59072702152863*^9, 3.5907270375062275`*^9}, 
   3.5907271559400697`*^9, {3.5907272601904936`*^9, 3.590727289311405*^9}, 
   3.5907276475362244`*^9, 3.590727924690937*^9, 3.5907279694424114`*^9, 
   3.590728072114678*^9, 3.5907281237348394`*^9, 3.590728256114135*^9, 
   3.5907282923721347`*^9, 3.590728390613135*^9, 3.5907284290491347`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5547872768735924`*^9, 3.554787513217132*^9, 3.5756288758960514`*^9, 
   3.5756447941149416`*^9, 3.5772072429499807`*^9, 3.5772072891306224`*^9, 
   3.577280402782484*^9, 3.577450687428792*^9, {3.5774508296490126`*^9, 
   3.577450853466394*^9}, 3.577450941501197*^9, 3.5791154600573387`*^9, 
   3.5791155759359665`*^9, 3.5814060845706615`*^9, 3.5907265322933416`*^9, 
   3.590726594199342*^9, {3.59072702152863*^9, 3.5907270375062275`*^9}, 
   3.5907271559400697`*^9, {3.5907272601904936`*^9, 3.590727289311405*^9}, 
   3.5907276475362244`*^9, 3.590727924690937*^9, 3.5907279694424114`*^9, 
   3.590728072114678*^9, 3.5907281237348394`*^9, 3.590728256114135*^9, 
   3.5907282923721347`*^9, 3.590728390613135*^9, 3.5907284290891347`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5547872768735924`*^9, 3.554787513217132*^9, 3.5756288758960514`*^9, 
   3.5756447941149416`*^9, 3.5772072429499807`*^9, 3.5772072891306224`*^9, 
   3.577280402782484*^9, 3.577450687428792*^9, {3.5774508296490126`*^9, 
   3.577450853466394*^9}, 3.577450941501197*^9, 3.5791154600573387`*^9, 
   3.5791155759359665`*^9, 3.5814060845706615`*^9, 3.5907265322933416`*^9, 
   3.590726594199342*^9, {3.59072702152863*^9, 3.5907270375062275`*^9}, 
   3.5907271559400697`*^9, {3.5907272601904936`*^9, 3.590727289311405*^9}, 
   3.5907276475362244`*^9, 3.590727924690937*^9, 3.5907279694424114`*^9, 
   3.590728072114678*^9, 3.5907281237348394`*^9, 3.590728256114135*^9, 
   3.5907282923721347`*^9, 3.590728390613135*^9, 3.590728429153135*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5547872768735924`*^9, 3.554787513217132*^9, 3.5756288758960514`*^9, 
   3.5756447941149416`*^9, 3.5772072429499807`*^9, 3.5772072891306224`*^9, 
   3.577280402782484*^9, 3.577450687428792*^9, {3.5774508296490126`*^9, 
   3.577450853466394*^9}, 3.577450941501197*^9, 3.5791154600573387`*^9, 
   3.5791155759359665`*^9, 3.5814060845706615`*^9, 3.5907265322933416`*^9, 
   3.590726594199342*^9, {3.59072702152863*^9, 3.5907270375062275`*^9}, 
   3.5907271559400697`*^9, {3.5907272601904936`*^9, 3.590727289311405*^9}, 
   3.5907276475362244`*^9, 3.590727924690937*^9, 3.5907279694424114`*^9, 
   3.590728072114678*^9, 3.5907281237348394`*^9, 3.590728256114135*^9, 
   3.5907282923721347`*^9, 3.590728390613135*^9, 3.5907284291541348`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"g0", " ", "=", " ", "9.81"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"rhos", " ", "=", " ", "1.225"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"-", "0.0065"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"R", " ", "=", " ", "287"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Ts", " ", "=", " ", "288.16"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"p0s", " ", "=", " ", "101300"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gamma", " ", "=", " ", "1.4"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"htp", " ", "=", "11000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Ttp", " ", "=", " ", "216.66"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ptp", " ", "=", " ", "22610"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"rhotp", "=", "0.363649"}], ";"}]}], "Input",
 CellChangeTimes->{{3.519403241328125*^9, 3.51940324134375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"onPositive", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Sign", "[", "x", "]"}], "+", "1"}], ")"}], "/", 
   "2"}]}]], "Input",
 CellChangeTimes->{3.519403258140625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"onNegative", "[", "x_", "]"}], ":=", 
  RowBox[{"1", "-", 
   RowBox[{"onPositive", "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.519403260109375*^9, 3.519403263078125*^9}}],

Cell[CellGroupData[{

Cell["Plot[{rhoa1,rhoa},{ha,1,20000}]", "Input"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIAWIQ3T+Z+cdqxg/2DFAglnux7faMCgcYn2f7wjammZ1w
/ot5yy/+YZwM54e6HS/zkpgJ5y8SPsu2ZtN8OJ9z0rFE+XeL4HzDtTO3fnJZ
BufHWV0U0e9ZCefLvEzlYpm9Bs4/tSr366PX6+F8FvdMa92mjXD+so9nG+ey
bYbzD6i+OSS0ZgvCPa8s/ENMt8H5fyzsr826vx3Ojzzw/ZFo0044v+7GPatY
jt1wvnRVfe/K9Xvg/MY1ftqHrPbB+fEZ1w/ff7Yfzl+gx/lxxtEDcH7Jx72q
KzoPItxfef66ZdwhOP+nR8X6jSqH4fx8018nnZ8j+Auf3UiM2HUEzjd/4Ccf
XH8Uzu+cpxh1IeQYnB9befZ6utpxOH/qHIHqpy8R/M6WDbOf7j0B5z/c8vzh
6eaTcP4uxh9ZZ1xPwfn+wqmF/hKn4XzP3My5O+4g+P+7T7kt2XgGzpf8fEi0
rOIsnL+lbIp6kvU5OJ97/6FtF/jOw/nH/DuyVa8g+PODrvr9C7kA58/hDub8
vhfBP50x59oj+YtwfoTGlEf8XQi+eE84o8FbJH5du2Os3yU4v/RS6oHT2xF8
1tP8QbpSl+H8T/IBP/+3I/ij+WM0f4zmD9z5AwB3NpgV
   "], {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 20000}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.519403342921875*^9, 3.51940360059375*^9, 3.51940371659375*^9, 
   3.519403907234375*^9, 3.51940423784375*^9, 3.519404304125*^9, 
   3.519404481140625*^9, 3.554787278061123*^9, 3.554787515467103*^9, 
   3.575628876709133*^9, 3.5756447949509892`*^9, 3.5772072439030356`*^9, 
   3.5772072899386683`*^9, 3.5772804036075315`*^9, 3.5774506885819073`*^9, {
   3.5774508306011076`*^9, 3.5774508544094887`*^9}, 3.577450942506297*^9, 
   3.5791154609773912`*^9, 3.5791155767670135`*^9, 3.58140608559772*^9, 
   3.5907265334773417`*^9, 3.5907265954523416`*^9, {3.590727022701747*^9, 
   3.590727038352312*^9}, 3.5907271571591916`*^9, {3.590727261404615*^9, 
   3.5907272905555296`*^9}, 3.5907276488183527`*^9, 3.590727925960064*^9, 
   3.590727970732541*^9, 3.5907280733608027`*^9, 3.5907281249689627`*^9, 
   3.590728257091135*^9, 3.5907282932081347`*^9, 3.5907283915571346`*^9, 
   3.590728430098135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot[Ta,{ha,1,20000}]", "Input"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQ3T+Z+cdqxg/2DFAglnux7faMCgcYn2f7wjammZ1w
/ot5yy/+YZwM54e6HS/zkpgJ5y8SPsu2ZtN8OJ9z0rFE+XeL4HzDtTO3fnJZ
BufHWV0U0e9ZCefLvEzlYpm9Bs4/tSr366PX6+F8FvdMa92mjXD+so9nG+ey
bYbzD6i+OSS0ZgvCPa8s/ENMt8H5fyzsr826vx3Ojzzw/ZFo0044v+7GPatY
jt1wvnRVfe/K9Xvg/MY1ftqHrPbB+fEZ1w/ff7Yfzl+gx/lxxtEDcH7Jx72q
KzoPItxfef66ZdwhOP+nR8X6jSqH4fx8018nnZ8j+Auf3UiM2HUEzjd/4Ccf
XH8Uzu+cpxh1IeQYnB9befZ6utpxOH/qHIHqpy8R/M6WDbOf7j0B5z/c8vzh
6eaTcP4uxh9ZZ1xPwfn+wqmF/hKn4XzP3My5O+4g+P+7T7kt2XgGzpf8fEi0
rOIsnL+lbIp6kvU5OJ97/6FtF/jOw/nH/DuyVa8g+PODrvr9C7kA58/hDub8
vhfBP50x59oj+YtwfoTGlEf8XQi+eE84o8FbJH5du2Os3yU4v/RS6oHT2xF8
1tP8QbpSl+H8T/IBP/+3I/gAcmnM2g==
   "], {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 20000}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.51940334303125*^9, 3.51940360071875*^9, 3.519403716640625*^9, 
   3.519403907265625*^9, 3.519404237890625*^9, 3.519404304171875*^9, 
   3.519404481171875*^9, 3.5547872781861258`*^9, 3.5547875155921016`*^9, 
   3.575628876803142*^9, 3.5756447950619955`*^9, 3.5772072440230427`*^9, 
   3.5772072900596757`*^9, 3.5772804037295384`*^9, 3.577450688927942*^9, {
   3.5774508308601336`*^9, 3.577450854705518*^9}, 3.577450942782325*^9, 
   3.579115461078397*^9, 3.579115576787015*^9, 3.5814060857647295`*^9, 
   3.5907265339483414`*^9, 3.590726596008342*^9, {3.590727023179795*^9, 
   3.5907270388283596`*^9}, 3.59072715764524*^9, {3.5907272618906636`*^9, 
   3.590727291046579*^9}, 3.590727649325403*^9, 3.5907279264551134`*^9, 
   3.590727971214589*^9, 3.5907280738448505`*^9, 3.590728125471013*^9, 
   3.5907282575751348`*^9, 3.590728293688135*^9, 3.5907283932951345`*^9, 
   3.5907284306221347`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot[{p0a},{ha,1,20000}]", "Input",
 CellChangeTimes->{3.519403297484375*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQ3T+Z+cdqxg/2DFAglnux7faMCgcYn2f7wjammZ1w
/ot5yy/+YZwM54e6HS/zkpgJ5y8SPsu2ZtN8OJ9z0rFE+XeL4HzDtTO3fnJZ
BufHWV0U0e9ZCefLvEzlYpm9Bs4/tSr366PX6+F8FvdMa92mjXD+so9nG+ey
bYbzD6i+OSS0ZgvCPa8s/ENMt8H5fyzsr826vx3Ojzzw/ZFo0044v+7GPatY
jt1wvnRVfe/K9Xvg/MY1ftqHrPbB+fEZ1w/ff7Yfzl+gx/lxxtEDcH7Jx72q
KzoPItxfef66ZdwhOP+nR8X6jSqH4fx8018nnZ8j+Auf3UiM2HUEzjd/4Ccf
XH8Uzu+cpxh1IeQYnB9befZ6utpxOH/qHIHqpy8R/M6WDbOf7j0B5z/c8vzh
6eaTcP4uxh9ZZ1xPwfn+wqmF/hKn4XzP3My5O+4g+P+7T7kt2XgGzpf8fEi0
rOIsnL+lbIp6kvU5OJ97/6FtF/jOw/nH/DuyVa8g+PODrvr9C7kA58/hDub8
vhfBP50x59oj+YtwfoTGlEf8XQi+eE84o8FbJH5du2Os3yU4v/RS6oHT2xF8
1tP8QbpSl+H8T/IBP/+3I/gAcmnM2g==
   "], {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 20000}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5194033430625*^9, 3.519403600765625*^9, 3.519403716671875*^9, 
   3.519403907296875*^9, 3.5194042379375*^9, 3.51940430421875*^9, 
   3.519404481203125*^9, 3.5547872782017517`*^9, 3.5547875160608454`*^9, 
   3.575628877159178*^9, 3.575644796117056*^9, 3.5772072443970637`*^9, 
   3.577207290473699*^9, 3.577280404408577*^9, 3.577450689337983*^9, {
   3.5774508312291703`*^9, 3.5774508550845556`*^9}, 3.5774509431773643`*^9, 
   3.5791154614934206`*^9, 3.5791155772200394`*^9, 3.581406086274759*^9, 
   3.590726534355342*^9, 3.590726596442342*^9, {3.5907270235788345`*^9, 
   3.5907270392293997`*^9}, 3.5907271580402794`*^9, {3.5907272622887034`*^9, 
   3.590727291443619*^9}, 3.590727649735444*^9, 3.590727926851153*^9, 
   3.590727971610628*^9, 3.59072807423989*^9, 3.5907281258750534`*^9, 
   3.5907282579841347`*^9, 3.5907282940851345`*^9, 3.590728393803135*^9, 
   3.5907284310991344`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"Vsounda", ",", 
   RowBox[{"{", 
    RowBox[{"ha", ",", "1", ",", "20000"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51940330390625*^9, 3.51940330390625*^9}, 
   3.519403573953125*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQ3T+Z+cdqxg/2DFAglnux7faMCgcYn2f7wjammZ1w
/ot5yy/+YZwM54e6HS/zkpgJ5y8SPsu2ZtN8OJ9z0rFE+XeL4HzDtTO3fnJZ
BufHWV0U0e9ZCefLvEzlYpm9Bs4/tSr366PX6+F8FvdMa92mjXD+so9nG+ey
bYbzD6i+OSS0ZgvCPa8s/ENMt8H5fyzsr826vx3Ojzzw/ZFo0044v+7GPatY
jt1wvnRVfe/K9Xvg/MY1ftqHrPbB+fEZ1w/ff7Yfzl+gx/lxxtEDcH7Jx72q
KzoPItxfef66ZdwhOP+nR8X6jSqH4fx8018nnZ8j+Auf3UiM2HUEzjd/4Ccf
XH8Uzu+cpxh1IeQYnB9befZ6utpxOH/qHIHqpy8R/M6WDbOf7j0B5z/c8vzh
6eaTcP4uxh9ZZ1xPwfn+wqmF/hKn4XzP3My5O+4g+P+7T7kt2XgGzpf8fEi0
rOIsnL+lbIp6kvU5OJ97/6FtF/jOw/nH/DuyVa8g+PODrvr9C7kA58/hDub8
vhfBP50x59oj+YtwfoTGlEf8XQi+eE84o8FbJH5du2Os3yU4v/RS6oHT2xF8
1tP8QbpSl+H8T/IBP/+3I/gAcmnM2g==
   "], {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 20000}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.519403343078125*^9, {3.5194035748125*^9, 3.519403600796875*^9}, 
   3.5194037166875*^9, 3.519403907328125*^9, 3.51940423796875*^9, 
   3.51940430425*^9, 3.519404481234375*^9, 3.5547872782330027`*^9, 
   3.5547875160920954`*^9, 3.5756288771771793`*^9, 3.575644796200061*^9, 
   3.5772072444220653`*^9, 3.577207290505701*^9, 3.57728040446058*^9, 
   3.5774506893649855`*^9, {3.5774508312581735`*^9, 3.5774508551115584`*^9}, 
   3.577450943202367*^9, 3.579115461900444*^9, 3.5791155776790657`*^9, 
   3.5814060866867824`*^9, 3.5907265347723417`*^9, 3.590726596907342*^9, {
   3.590727023973874*^9, 3.59072703963344*^9}, 3.590727158438319*^9, {
   3.5907272626937437`*^9, 3.5907272918586597`*^9}, 3.5907276501474857`*^9, 
   3.5907279272661943`*^9, 3.590727972018669*^9, 3.590728074651932*^9, 
   3.590728126289095*^9, 3.590728258390135*^9, 3.590728294482135*^9, 
   3.590728394204135*^9, 3.5907284315621347`*^9}]
}, Open  ]],

Cell["\<\
g0 =.;
rhos = .;
a =.;
R =.;
Ts =.;
p0s =.;
gamma =.;
htp =.;
Ttp = .;
ptp = .;
rhotp=.;
onPositive[x_]=.;
onNegative[x_]=.;
\
\>", "Input",
 CellChangeTimes->{{3.519404211734375*^9, 3.519404213328125*^9}, 
   3.519404298296875*^9}]
}, Closed]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", "\"\<HOPSAN++\>\"", ",", 
      "\"\<componentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Special\>\"", ",", "\"\<AeroComponents\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, {3.5757878767889338`*^9, 
   3.5757879248295527`*^9}, 3.5769419470239835`*^9, {3.5769421140515366`*^9, 
   3.576942115482619*^9}, 3.5772072510854464`*^9}],

Cell[CellGroupData[{

Cell["Combustion Chamber Monopropellant", "Section",
 CellChangeTimes->{{3.4785828348125*^9, 3.478582896703125*^9}, {
   3.5159023652393904`*^9, 3.5159023668175154`*^9}, 3.5698707380574408`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<CombustionChamberMono\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Hydraulic volume with two connection\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5042704357554045`*^9, {3.5159023742081404`*^9, 3.5159024232706404`*^9}, {
   3.51670646940555*^9, 3.516706478608675*^9}, 3.5684505041258545`*^9, 
   3.5698704665511217`*^9, 3.569870770505498*^9, 3.5698736691551065`*^9, {
   3.5700294125046115`*^9, 3.570029413619675*^9}, {3.571861551379243*^9, 
   3.571861570192876*^9}, 3.571926198323962*^9, 3.5757879787750444`*^9, {
   3.5769421260582237`*^9, 3.576942132400586*^9}, {3.585565721543457*^9, 
   3.5855657233405595`*^9}, 3.5855657678881073`*^9, 3.585970738275631*^9, 
   3.5907536940196877`*^9}],

Cell[CellGroupData[{

Cell[BoxData["file"], "Input",
 CellChangeTimes->{{3.577288105736068*^9, 3.5772881061050887`*^9}}],

Cell[BoxData["\<\"C:\\\\HopsanTrunk\\\\HOPSAN++\\\\componentLibraries\\\\\
defaultLibrary\\\\Special\\\\AeroComponents\\\\AeroCombustionChamberMono.hpp\"\
\>"], "Output",
 CellChangeTimes->{
  3.577288123662093*^9, 3.5772882148283076`*^9, 3.580555500175933*^9, 
   3.5810577659628735`*^9, 3.5813293394031134`*^9, {3.581350813250572*^9, 
   3.5813508282544303`*^9}, 3.5813508897659483`*^9, {3.581352977216344*^9, 
   3.5813529905351057`*^9}, {3.5813532381452684`*^9, 3.581353262151641*^9}, 
   3.5813533479985514`*^9, 3.5813566048738337`*^9, 3.584764665559081*^9, 
   3.584771838049324*^9, 3.5847718791996775`*^9, 3.5847721087318068`*^9, 
   3.5847790070843697`*^9, 3.584785428856674*^9, {3.5847854765694027`*^9, 
   3.584785502486885*^9}, 3.5849761351584644`*^9, 3.584976387576902*^9, 
   3.5849765032405176`*^9, 3.584977817617696*^9, 3.584978275730898*^9, 
   3.585472471334816*^9, 3.5854725161803813`*^9, 3.585970745587362*^9, 
   3.59075345097816*^9, 3.5907535055317097`*^9, 3.5907537583941536`*^9, 
   3.590807250903843*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Model", "Subsection",
 CellChangeTimes->{{3.5159024543018904`*^9, 3.5159024592393904`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", "\t", 
    RowBox[{"HydraulicCnode", "[", 
     RowBox[{"1", ",", 
      RowBox[{"1.", "*", 
       RowBox[{"10", "^", "5"}]}], ",", "\"\<Upstream port\>\""}], "]"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4752292939381866`*^9, 3.4752293318441935`*^9}, {
   3.47808399728125*^9, 3.478083998921875*^9}, 3.4988885288475237`*^9, {
   3.50394176215625*^9, 3.503941811890625*^9}, {3.50427113076719*^9, 
   3.50427113339219*^9}, 3.50427121389219*^9, {3.51582103693931*^9, 
   3.5158210378611856`*^9}, {3.569870780957516*^9, 3.5698707818311176`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"pa", ",", 
      RowBox[{"1.0", "*", 
       RowBox[{"10", "^", "5"}]}], ",", "double", ",", "\"\< \>\"", ",", 
      "\"\<Free stream pressure\>\""}], "}"}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.5704741094426193`*^9, 3.5704741414684515`*^9}, 
   3.571233572328911*^9, 3.585472109554124*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Vc", ",", "0.02", ",", "double", ",", "\"\< \>\"", ",", 
       "\"\<Chamber volume (for numerics)\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "R", ",", "396", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Gas constant\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "cv", ",", "1800", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Heat capacity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vfuel", ",", "1571.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Exhaust speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ethap", ",", "0.9", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Effectivness\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhofuel", ",", "1200.", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Exhaust speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "As", ",", "0.00196", ",", "double", ",", "\"\<m2\>\"", ",", 
       "\"\<min effective area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Med", ",", "2.5", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Design exit Mach\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alpha", ",", "0.3", ",", "double", ",", "\"\<1/s \>\"", ",", 
       "\"\<Damp. factor\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5039965585179834`*^9, 3.503996561692254*^9}, {
   3.522605551890625*^9, 3.522605566234375*^9}, {3.5654334434341664`*^9, 
   3.5654336746853623`*^9}, {3.5654679343190994`*^9, 
   3.5654680194339676`*^9}, {3.5655883583080864`*^9, 
   3.5655884053889694`*^9}, {3.565594406736371*^9, 3.565594471273684*^9}, {
   3.5656242519924636`*^9, 3.5656243003681483`*^9}, {3.5656243395086174`*^9, 
   3.5656243687430687`*^9}, {3.5656254173679185`*^9, 3.565625464230401*^9}, 
   3.5656255083472786`*^9, {3.5689206642122784`*^9, 3.5689207150771875`*^9}, {
   3.5698329229249806`*^9, 3.5698329895058975`*^9}, {3.569836202071379*^9, 
   3.5698362173594065`*^9}, 3.569849024651142*^9, {3.5698514952985497`*^9, 
   3.5698515247982016`*^9}, {3.569852147888132*^9, 3.569852186623*^9}, {
   3.5698753102965603`*^9, 3.5698753231662965`*^9}, 3.5700299514864397`*^9, 
   3.570392394757981*^9, 3.5712356007449293`*^9, {3.571236091578004*^9, 
   3.571236117829505*^9}, {3.5712983309848943`*^9, 3.571298340503439*^9}, {
   3.5718249944690647`*^9, 3.571825014576215*^9}, {3.5718594450715847`*^9, 
   3.5718594459451866`*^9}, {3.5810529620212717`*^9, 3.5810530704698715`*^9}, 
   3.5908072238885756`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "0.", ",", "double", ",", "\"\<m3/s\>\"", ",", 
       "\"\<thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Tc", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<cahmber temerature\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhogas", ",", "0.", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<density in chamber\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mdot", ",", "0.", ",", "double", ",", "\"\<kg/s\>\"", ",", 
       "\"\<Exit mass flow\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ae", ",", "0.", ",", "double", ",", "\"\<m2\>\"", ",", 
       "\"\<exit Area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "pe", ",", "0.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<exit pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "pc", ",", "0.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<chamber pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Te", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<exit temperature\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ve", ",", "0.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<exit velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pin", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Input power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pout", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Output power\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.565539113334306*^9, 3.565539170607582*^9}, 
   3.5655884315190153`*^9, {3.5655908350732856`*^9, 3.5655908608133307`*^9}, {
   3.5689134004328136`*^9, 3.5689134318216095`*^9}, {3.569832577540374*^9, 
   3.569832598803211*^9}, {3.569849279670601*^9, 3.5698492803882027`*^9}, {
   3.569849895365325*^9, 3.5698499629602437`*^9}, {3.57027251873244*^9, 
   3.5702727197269363`*^9}, {3.5704730622877254`*^9, 
   3.5704730764595366`*^9}, {3.570473757821508*^9, 3.5704737742314463`*^9}, {
   3.5712384023921747`*^9, 3.5712384109286633`*^9}, {3.5714148432134714`*^9, 
   3.5714148651367254`*^9}, 3.571825064632078*^9, {3.577287063744469*^9, 
   3.5772870691517787`*^9}, {3.581057616690789*^9, 3.581057626863789*^9}, {
   3.5854721187846518`*^9, 3.5854721245389805`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "=", "gam"}], ";"}]], "Input",
 CellChangeTimes->{{3.571299017466159*^9, 3.571299038203345*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initialExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c1", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"pc", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c1f", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2f", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Tc", "\[Equal]", "T1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"rhogas", " ", "==", 
      FractionBox[
       RowBox[{" ", "pc"}], 
       RowBox[{"R", " ", 
        RowBox[{"(", 
         RowBox[{"Tc", "+", "1"}], ")"}]}]]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.51681842278125*^9, 3.516818476890625*^9}, 
   3.516818573890625*^9, {3.5698739048403206`*^9, 3.569873941266384*^9}, 
   3.570031760851929*^9, 3.570473448103793*^9, {3.5704736357605267`*^9, 
   3.570473651696438*^9}, 3.5712328599921675`*^9, {3.571239156806325*^9, 
   3.5712391949185047`*^9}, {3.5718593792738695`*^9, 3.571859411004325*^9}, {
   3.5730585003313026`*^9, 3.5730585710843496`*^9}, {3.577205360078287*^9, 
   3.577205392197124*^9}, {3.577287054872962*^9, 3.577287055401992*^9}, {
   3.5772873493938074`*^9, 3.5772873498948364`*^9}, {3.5772878646422777`*^9, 
   3.5772878671994247`*^9}, {3.5810576389267893`*^9, 3.581057642447789*^9}, {
   3.5854722604067516`*^9, 3.5854722861052217`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["initialExpressions"], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"c1", "\[Equal]", "p1"}], ",", 
   RowBox[{"c2", "\[Equal]", "p1"}], ",", 
   RowBox[{"pc", "\[Equal]", "p1"}], ",", 
   RowBox[{"c1f", "\[Equal]", "p1"}], ",", 
   RowBox[{"c2f", "\[Equal]", "p1"}], ",", 
   RowBox[{"Tc", "\[Equal]", "T1"}], ",", 
   RowBox[{"rhogas", "\[Equal]", 
    FractionBox["pc", 
     RowBox[{"R", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "Tc"}], ")"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.59075345107176*^9, 3.59075350562531*^9, 
  3.590753758472154*^9, 3.590807251028701*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cfuel", "=", " ", 
   FractionBox[
    SuperscriptBox["vfuel", "2"], "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.569851306825736*^9, 3.569851404036707*^9}, 
   3.5703923675004215`*^9, {3.5704746874626803`*^9, 3.570474713213153*^9}, 
   3.5718299672550926`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cep", "=", 
   RowBox[{"\[Gamma]", " ", "Vc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570472612395993*^9, 3.570472615218155*^9}, {
   3.5704726588736515`*^9, 3.5704726820809793`*^9}, 3.5712994508649473`*^9, 
   3.5854722507161975`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Tref", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.581350679723935*^9, 3.5813506940167522`*^9}, 
   3.5813510996349525`*^9, 3.581353234782076*^9, {3.584977773728185*^9, 
   3.5849777746922407`*^9}, 3.5849778099792585`*^9, 3.584978162833441*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mdot1", "=", 
   RowBox[{"q1", " ", "rhofuel"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1E", "=", 
   RowBox[{"q1", " ", "rhofuel", " ", 
    RowBox[{"(", "cfuel", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mdot2", "=", 
   RowBox[{"-", "mdot"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5703061899370613`*^9, 3.5703062136854196`*^9}, {
   3.5703062444511795`*^9, 3.570306246772312*^9}, 3.570306431637886*^9, 
   3.570306553634864*^9, 3.5703073189876394`*^9, {3.5703075923892775`*^9, 
   3.5703076087802143`*^9}, {3.5703076633683367`*^9, 3.570307673589922*^9}, {
   3.570473512144456*^9, 3.5704735128824987`*^9}, {3.571232833404647*^9, 
   3.5712328412480955`*^9}, {3.573060707368538*^9, 3.5730607150299764`*^9}, 
   3.5805553928407936`*^9, {3.5813506717434783`*^9, 3.5813506756126995`*^9}, 
   3.5854721451161575`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Zc1e", "=", 
  FractionBox[
   RowBox[{"mTimestep", " ", "rhofuel", 
    RowBox[{"(", 
     RowBox[{"cfuel", "+", 
      RowBox[{"cv", " ", "Tref"}]}], ")"}], " "}], "Cep"]}]], "Input",
 CellChangeTimes->{{3.5703068226022477`*^9, 3.5703068410983057`*^9}, {
   3.5703924271288323`*^9, 3.5703924578185873`*^9}, {3.5704725544746804`*^9, 
   3.570472577945023*^9}, 3.570472764138673*^9, 3.5712328439192486`*^9, 
   3.5712362936765633`*^9, 3.573060757807423*^9, {3.58135077474037*^9, 
   3.5813507753924065`*^9}, {3.5813510838110476`*^9, 3.581351086073177*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"mTimestep", " ", "rhofuel", " ", 
   SuperscriptBox["vfuel", "2"]}], 
  RowBox[{"2", " ", "gam", " ", "Vc"}]]], "Output",
 CellChangeTimes->{3.590753451134161*^9, 3.5907535056877103`*^9, 
  3.5907537585345545`*^9, 3.590807251106737*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZcEp", "=", 
  FractionBox["mTimestep", "Cep"]}]], "Input",
 CellChangeTimes->{{3.5704727084904895`*^9, 3.570472718950088*^9}, {
   3.5704734125617604`*^9, 3.5704734127367706`*^9}, 3.570474589090054*^9, 
   3.57123567907941*^9}],

Cell[BoxData[
 FractionBox["mTimestep", 
  RowBox[{"gam", " ", "Vc"}]]], "Output",
 CellChangeTimes->{3.5907534511653605`*^9, 3.5907535057033105`*^9, 
  3.590753758565755*^9, 3.5908072511535587`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qE1", "=", 
  RowBox[{"mdot1", " ", "cfuel"}]}]], "Input",
 CellChangeTimes->{{3.5700315725051565`*^9, 3.570031584175824*^9}, {
   3.571233114797742*^9, 3.571233115161762*^9}, 3.5712332487414026`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "q1", " ", "rhofuel", " ", 
  SuperscriptBox["vfuel", "2"]}]], "Output",
 CellChangeTimes->{3.5907534511809607`*^9, 3.590753505734511*^9, 
  3.590753758581355*^9, 3.5908072511847725`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"qE2", " ", "=", 
   RowBox[{
    RowBox[{"-", "mdot"}], " ", 
    RowBox[{"(", 
     RowBox[{"cv", "+", "R"}], ")"}], " ", "Tc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570307281120474*^9, 3.5703073045888157`*^9}, {
   3.570473527496334*^9, 3.570473528284379*^9}, {3.571233117368889*^9, 
   3.5712331186469617`*^9}, 3.5730565177869077`*^9, {3.581329201204209*^9, 
   3.5813292063525033`*^9}, {3.581329284702985*^9, 3.581329317123839*^9}, {
   3.581332773124511*^9, 3.5813327816139965`*^9}, 3.5813328170890255`*^9, 
   3.5813508723609533`*^9, {3.5813565937011952`*^9, 3.581356600529586*^9}, {
   3.5847710769157896`*^9, 3.5847710857572956`*^9}, {3.5847711235564575`*^9, 
   3.584771128951766*^9}, {3.5847711652808437`*^9, 3.5847711657818727`*^9}, {
   3.5847712503147078`*^9, 3.5847712590682087`*^9}, 3.584778923432585*^9, 
   3.584785378397788*^9, 3.5849761013055277`*^9, {3.5849763654506364`*^9, 
   3.5849763661876783`*^9}, 3.5854721605820417`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 SqrtBox[
  RowBox[{"\[Gamma]", " ", "R", " ", "Te"}]]], "Input"],

Cell[BoxData[
 SqrtBox[
  RowBox[{"gam", " ", "R", " ", "Te"}]]], "Output",
 CellChangeTimes->{3.590753451212161*^9, 3.590753505765711*^9, 
  3.5907537586125555`*^9, 3.590807251215987*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Gamma]", "==", 
      FractionBox[
       RowBox[{"cv", "+", "R"}], "cv"]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c10", "==", 
      RowBox[{"c2", "+", 
       RowBox[{"2", " ", "ZcEp", " ", "qE2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c20", "==", 
      RowBox[{"c1", "+", 
       RowBox[{"2", " ", "ZcEp", " ", "qE1"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818175265625*^9, 3.51681819540625*^9}, {
   3.516818378453125*^9, 3.516818390015625*^9}, {3.5700315278346014`*^9, 
   3.5700315301257324`*^9}, {3.570473894668335*^9, 3.5704738961954226`*^9}, {
   3.570474569105911*^9, 3.570474572809123*^9}, {3.571235454712577*^9, 
   3.5712354596208577`*^9}, {3.5712982962379065`*^9, 3.571298322432405*^9}, 
   3.5713187972935*^9, {3.571859358806634*^9, 3.5718593708654547`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"der", "[", "rhogas", "]"}], "==", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"mdot1", "+", "mdot2"}], ")"}], "Vc"]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"rhogas", " ", "R", " ", "Tc"}], " ", "==", " ", "pc"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"mdot", "==", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"As", " ", "pc"}], 
         SqrtBox[
          RowBox[{
           RowBox[{"Abs", "[", "Tc", "]"}], "+", "1"}]]], 
        SqrtBox[
         FractionBox["\[Gamma]", "R"]], 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[Gamma]", "+", "1"}], "2"], ")"}], 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[Gamma]", "+", "1"}], 
           RowBox[{"2", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]}]]}], ")"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570049196534193*^9, 3.570049290841587*^9}, {
   3.5702706207238803`*^9, 3.570270624359088*^9}, {3.570270673951925*^9, 
   3.570270711199055*^9}, {3.570270939501113*^9, 3.570271021825822*^9}, {
   3.5702721412388487`*^9, 3.5702721752057915`*^9}, {3.5702722527732277`*^9, 
   3.5702722753895216`*^9}, {3.5702723081883974`*^9, 3.570272322377209*^9}, {
   3.5702725021374907`*^9, 3.570272505182665*^9}, {3.5702727244372053`*^9, 
   3.570272735395832*^9}, {3.570272843387009*^9, 3.5702728491533394`*^9}, {
   3.570306106424285*^9, 3.570306114228731*^9}, 3.570306990202834*^9, {
   3.5703070296510906`*^9, 3.570307075648721*^9}, {3.570307187787135*^9, 
   3.5703072118185096`*^9}, {3.570307296711365*^9, 3.5703073209817533`*^9}, {
   3.570307491141486*^9, 3.5703075772694125`*^9}, {3.570307630695468*^9, 
   3.570307635778759*^9}, {3.5703077114220853`*^9, 3.5703077367725353`*^9}, {
   3.570307910054446*^9, 3.570307912796603*^9}, {3.5703920692453623`*^9, 
   3.570392098411031*^9}, {3.5703921399694076`*^9, 3.5703921437436237`*^9}, {
   3.5712333345423107`*^9, 3.571233349905189*^9}, 3.57123607192788*^9, 
   3.571236188651556*^9, {3.571298520924758*^9, 3.5712987086734967`*^9}, {
   3.5712987682829065`*^9, 3.5712989160053554`*^9}, {3.5712989979660435`*^9, 
   3.571299001730259*^9}, {3.571299044467703*^9, 3.571299119470993*^9}, {
   3.5712991505387697`*^9, 3.571299180385477*^9}, {3.571825032201223*^9, 
   3.571825046125019*^9}, 3.5718275736768856`*^9, 3.5718290313972273`*^9, {
   3.5718290753269043`*^9, 3.5718291262921934`*^9}, {3.5718291998931227`*^9, 
   3.571829201094325*^9}, {3.5718597308161974`*^9, 3.571859741252616*^9}, {
   3.5772882044967165`*^9, 3.5772882045617204`*^9}, 3.5805567951470013`*^9, {
   3.581057507849789*^9, 3.5810575183217893`*^9}, {3.585472169514553*^9, 
   3.5854721757769113`*^9}, 3.5854723589613886`*^9, {3.5907534204955645`*^9, 
   3.590753428498416*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", "=", 
   RowBox[{"{", 
    RowBox[{"rhogas", ",", "Tc", ",", "mdot"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5702709993645372`*^9, 3.57027100990114*^9}, {
   3.570271051269506*^9, 3.570271103429489*^9}, {3.5702723480836797`*^9, 
   3.5702723511688557`*^9}, 3.570272727380374*^9, {3.5702727744360657`*^9, 
   3.570272776054158*^9}, {3.5703077245898385`*^9, 3.570307725247876*^9}, 
   3.570307802125273*^9, {3.570392272203971*^9, 3.570392272776004*^9}, 
   3.5712358224876127`*^9, 3.5713977390241675`*^9, 3.5718250499582386`*^9, 
   3.571827595064523*^9, 3.5718291204421835`*^9, {3.5718291917655087`*^9, 
   3.5718291921867094`*^9}, {3.581057605930789*^9, 3.581057606973789*^9}, 
   3.5854721788300858`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variableLimits", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mdot", ",", "0.", ",", 
      RowBox[{"1.", " ", 
       SuperscriptBox["10", "9"]}]}], "}"}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5713082545844917`*^9, 3.5713082732005568`*^9}, {
   3.57130832484351*^9, 3.571308350515979*^9}, {3.5713205279444876`*^9, 
   3.5713205374340305`*^9}, 3.5713241499496546`*^9, {3.5714159147307587`*^9, 
   3.571415918724987*^9}, 3.5714165950276694`*^9, 3.57182507532969*^9, {
   3.5730584254660206`*^9, 3.573058427516138*^9}, {3.5772873592043686`*^9, 
   3.5772873678348627`*^9}, {3.5810577159968824`*^9, 3.5810577173131456`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Me", "=", "Med"}], ";"}]], "Input",
 CellChangeTimes->{{3.5718250774868135`*^9, 3.571825081745057*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c1", "==", 
      RowBox[{
       RowBox[{"c10", 
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}]}], "+", 
       RowBox[{"alpha", " ", "c1"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2", "==", 
      RowBox[{
       RowBox[{"c20", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}]}], "+", 
       RowBox[{"alpha", " ", "c2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zc1", "==", "Zc1e"}], ",", "\[IndentingNewLine]", 
     RowBox[{"pc", "==", 
      RowBox[{"c2", "+", 
       RowBox[{"ZcEp", " ", "qE2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Ae", "==", 
      RowBox[{"As", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], "2"], ")"}], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]}]], 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[Gamma]", "-", "1"}], "2"], 
            SuperscriptBox["Med", "2"]}]}], ")"}], 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]], "Med"]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"pe", "==", 
      RowBox[{"pc", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", "-", "1"}], "2"], 
           SuperscriptBox["Me", "2"]}]}], ")"}], 
        FractionBox[
         RowBox[{"-", "\[Gamma]"}], 
         RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Te", "==", 
      RowBox[{"Tc", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", "-", "1"}], "2"], 
           SuperscriptBox["Me", "2"]}]}], ")"}], 
        RowBox[{"-", "1"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ve", "==", 
      RowBox[{"Me", " ", 
       SqrtBox[
        RowBox[{"\[Gamma]", " ", "R", " ", "Te"}]]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"thrust", "\[Equal]", 
      RowBox[{"lowLimit", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"mdot", " ", "ve"}], "+", 
          RowBox[{"Ae", 
           RowBox[{"(", 
            RowBox[{"pe", "-", "pa"}], ")"}]}]}], ")"}], ",", "0"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Pin", "==", 
      RowBox[{"mdot1", " ", "cfuel"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pout", "\[Equal]", 
      RowBox[{
       RowBox[{"-", "mdot2"}], " ", 
       FractionBox[
        SuperscriptBox["ve", "2"], "2"]}]}]}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{
  3.5698736249914293`*^9, 3.57002958853968*^9, {3.570030206489025*^9, 
   3.5700302097402105`*^9}, {3.570031804877447*^9, 3.5700318166821227`*^9}, {
   3.5703077432729073`*^9, 3.57030778021002*^9}, {3.570307933648796*^9, 
   3.570307936992987*^9}, {3.570392100271137*^9, 3.570392120063269*^9}, {
   3.570392212530558*^9, 3.570392230817604*^9}, {3.570472756451233*^9, 
   3.5704727580843267`*^9}, {3.5704731758712225`*^9, 
   3.5704732734318027`*^9}, {3.5704733558915186`*^9, 
   3.5704733909705257`*^9}, {3.570473424136422*^9, 3.57047342496447*^9}, {
   3.5704734884581013`*^9, 3.570473505186058*^9}, {3.5704735585451097`*^9, 
   3.5704735757620945`*^9}, {3.570473804700189*^9, 3.570473867355773*^9}, {
   3.571235487192435*^9, 3.571235491094658*^9}, 3.5712359786285434`*^9, {
   3.5712362393124533`*^9, 3.5712362629698067`*^9}, {3.57123632509236*^9, 
   3.571236325404378*^9}, {3.5712363567841725`*^9, 3.5712363804225245`*^9}, {
   3.5712567684446526`*^9, 3.5712567707457843`*^9}, 3.571257066999729*^9, {
   3.571299285839509*^9, 3.5712993253587694`*^9}, 3.5713014826321583`*^9, {
   3.5718275789496946`*^9, 3.5718275893237133`*^9}, {3.5718290349228334`*^9, 
   3.571829070054095*^9}, {3.5718291013477497`*^9, 3.5718291609398546`*^9}, {
   3.5718296728570433`*^9, 3.571829677178251*^9}, {3.5718297219971294`*^9, 
   3.5718297244775343`*^9}, {3.571838227020904*^9, 3.571838227410905*^9}, {
   3.571859289121311*^9, 3.571859347746214*^9}, 3.571859575812479*^9, 
   3.5805982697975597`*^9, {3.5813528604316645`*^9, 3.581352881845889*^9}, 
   3.581352966171712*^9, {3.5854721830733285`*^9, 3.5854721913668027`*^9}, {
   3.5854723250604496`*^9, 3.585472334401984*^9}, {3.590807126717148*^9, 
   3.59080716734369*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellChangeTimes->{3.5039025691670113`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072513252373`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \
\\\"AeroCombustionChamberMono\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \
\\(\\(\\\"Aer\\\" \[Ellipsis] \\\"Mono\\\"\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroCombustionChamberMono.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\
\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroCombustionChamberMono.svg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \
\\(\\({}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\
\\\"x\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.5`\\)\\), \\(\\(\
\\\"a\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"P1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] \
12 \[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\(\\(\\\"Aero\\\" \[Ellipsis] \\\"rMono\\\"\\)\\)\\)\\), \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroCombustionChamberMono.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\
\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroCombustionChamberMono.svg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \
\\(\\({}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\
\\\"x\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.5`\\)\\), \\(\\(\
\\\"a\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"P1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] \
12 \[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514032736`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514188805`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"y\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514188805`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514188805`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514188805`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514188805`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5772875970819745`*^9, {3.577287691655384*^9, 3.5772877114635167`*^9}, {
   3.57728775506301*^9, 3.5772877813605146`*^9}, 3.577287853403635*^9, 
   3.5772878872965736`*^9, 3.5772880776804633`*^9, 3.5772881239911118`*^9, 
   3.577288215148326*^9, 3.5805555005549545`*^9, 3.581057766226927*^9, 
   3.5813293399441442`*^9, {3.5813508136065927`*^9, 3.5813508286454525`*^9}, 
   3.5813508901729717`*^9, {3.581352977715372*^9, 3.581352991046135*^9}, {
   3.5813532386272955`*^9, 3.5813532626326685`*^9}, 3.581353348446577*^9, 
   3.581356605441867*^9, 3.584764666044109*^9, 3.5847718384713483`*^9, 
   3.584771879575699*^9, 3.584772109064825*^9, 3.5847790074863925`*^9, 
   3.584785429259697*^9, {3.5847854768964214`*^9, 3.5847855028099036`*^9}, 
   3.5849761355634875`*^9, 3.5849763879279222`*^9, 3.584976503564536*^9, 
   3.5849777870589476`*^9, 3.584977817938714*^9, 3.5849782761079197`*^9, 
   3.585472471835845*^9, 3.585472516592405*^9, 3.5859707459063935`*^9, 
   3.590753451305762*^9, 3.5907535059061117`*^9, 3.5907537586905556`*^9, 
   3.5908072514188805`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", "\"\<HOPSAN++\>\"", ",", 
      "\"\<componentLibraries\>\"", ",", "\"\<devLibraries\>\"", ",", 
      "\"\<PettersMatematica\>\""}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, {3.5757878767889338`*^9, 
   3.5757879248295527`*^9}, 3.5769419470239835`*^9, {3.5769421140515366`*^9, 
   3.576942115482619*^9}, 3.5772072510854464`*^9, {3.577288048867815*^9, 
   3.577288060652489*^9}, {3.5772881198368745`*^9, 3.5772881201858945`*^9}}],

Cell[CellGroupData[{

Cell["\<\
Combustion Chamber Monopropellant (NOT WORKING?)\
\>", "Section",
 CellChangeTimes->{{3.4785828348125*^9, 3.478582896703125*^9}, {
   3.5159023652393904`*^9, 3.5159023668175154`*^9}, 3.5698707380574408`*^9, {
   3.5859709136691685`*^9, 3.585970918217623*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<CombustionChamberMonopropellant\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Hydraulic volume with two connection\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5042704357554045`*^9, {3.5159023742081404`*^9, 3.5159024232706404`*^9}, {
   3.51670646940555*^9, 3.516706478608675*^9}, 3.5684505041258545`*^9, 
   3.5698704665511217`*^9, 3.569870770505498*^9, 3.5698736691551065`*^9, {
   3.5700294125046115`*^9, 3.570029413619675*^9}, {3.571861551379243*^9, 
   3.571861570192876*^9}, 3.571926198323962*^9, 3.5757879787750444`*^9, {
   3.5769421260582237`*^9, 3.576942132400586*^9}, {3.585565721543457*^9, 
   3.5855657233405595`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["file"], "Input",
 CellChangeTimes->{{3.577288105736068*^9, 3.5772881061050887`*^9}}],

Cell[BoxData["\<\"C:\\\\HopsanTrunk\\\\HOPSAN++\\\\componentLibraries\\\\\
devLibraries\\\\PettersMatematica\\\\AeroCombustionChamberMonopropellant.hpp\"\
\>"], "Output",
 CellChangeTimes->{
  3.577288123662093*^9, 3.5772882148283076`*^9, 3.580555500175933*^9, 
   3.5810577659628735`*^9, 3.5813293394031134`*^9, {3.581350813250572*^9, 
   3.5813508282544303`*^9}, 3.5813508897659483`*^9, {3.581352977216344*^9, 
   3.5813529905351057`*^9}, {3.5813532381452684`*^9, 3.581353262151641*^9}, 
   3.5813533479985514`*^9, 3.5813566048738337`*^9, 3.584764665559081*^9, 
   3.584771838049324*^9, 3.5847718791996775`*^9, 3.5847721087318068`*^9, 
   3.5847790070843697`*^9, 3.584785428856674*^9, {3.5847854765694027`*^9, 
   3.584785502486885*^9}, 3.5849761351584644`*^9, 3.584976387576902*^9, 
   3.5849765032405176`*^9, 3.584977817617696*^9, 3.584978275730898*^9, 
   3.585472471334816*^9, 3.5854725161803813`*^9, 3.585571012048805*^9, {
   3.585970540070812*^9, 3.585970568719677*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Model", "Subsection",
 CellChangeTimes->{{3.5159024543018904`*^9, 3.5159024592393904`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", "\t", 
    RowBox[{"HydraulicCnode", "[", 
     RowBox[{"1", ",", 
      RowBox[{"1.", "*", 
       RowBox[{"10", "^", "5"}]}], ",", "\"\<Upstream port\>\""}], "]"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4752292939381866`*^9, 3.4752293318441935`*^9}, {
   3.47808399728125*^9, 3.478083998921875*^9}, 3.4988885288475237`*^9, {
   3.50394176215625*^9, 3.503941811890625*^9}, {3.50427113076719*^9, 
   3.50427113339219*^9}, 3.50427121389219*^9, {3.51582103693931*^9, 
   3.5158210378611856`*^9}, {3.569870780957516*^9, 3.5698707818311176`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"pa", ",", 
      RowBox[{"1.0", "*", 
       RowBox[{"10", "^", "5"}]}], ",", "double", ",", "\"\< \>\"", ",", 
      "\"\<Free stream pressure\>\""}], "}"}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.5704741094426193`*^9, 3.5704741414684515`*^9}, 
   3.571233572328911*^9, 3.585472109554124*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Vc", ",", "0.02", ",", "double", ",", "\"\< \>\"", ",", 
       "\"\<Chamber volume (for numerics)\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "R", ",", "396", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Gas constant\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "cv", ",", "1800", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Heat capacity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vfuel", ",", "1571.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Exhaust speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ethap", ",", "0.9", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Effectivness\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhofuel", ",", "1200.", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Exhaust speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "As", ",", "0.00196", ",", "double", ",", "\"\<m2\>\"", ",", 
       "\"\<min effective area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Med", ",", "2.5", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Design exit Mach\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alpha", ",", "0.0", ",", "double", ",", "\"\<1/s \>\"", ",", 
       "\"\<Damp. factor\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5039965585179834`*^9, 3.503996561692254*^9}, {
   3.522605551890625*^9, 3.522605566234375*^9}, {3.5654334434341664`*^9, 
   3.5654336746853623`*^9}, {3.5654679343190994`*^9, 
   3.5654680194339676`*^9}, {3.5655883583080864`*^9, 
   3.5655884053889694`*^9}, {3.565594406736371*^9, 3.565594471273684*^9}, {
   3.5656242519924636`*^9, 3.5656243003681483`*^9}, {3.5656243395086174`*^9, 
   3.5656243687430687`*^9}, {3.5656254173679185`*^9, 3.565625464230401*^9}, 
   3.5656255083472786`*^9, {3.5689206642122784`*^9, 3.5689207150771875`*^9}, {
   3.5698329229249806`*^9, 3.5698329895058975`*^9}, {3.569836202071379*^9, 
   3.5698362173594065`*^9}, 3.569849024651142*^9, {3.5698514952985497`*^9, 
   3.5698515247982016`*^9}, {3.569852147888132*^9, 3.569852186623*^9}, {
   3.5698753102965603`*^9, 3.5698753231662965`*^9}, 3.5700299514864397`*^9, 
   3.570392394757981*^9, 3.5712356007449293`*^9, {3.571236091578004*^9, 
   3.571236117829505*^9}, {3.5712983309848943`*^9, 3.571298340503439*^9}, {
   3.5718249944690647`*^9, 3.571825014576215*^9}, {3.5718594450715847`*^9, 
   3.5718594459451866`*^9}, {3.5810529620212717`*^9, 3.5810530704698715`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "0.", ",", "double", ",", "\"\<m3/s\>\"", ",", 
       "\"\<thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Tc", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<cahmber temerature\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhogas", ",", "0.", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<density in chamber\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mdot", ",", "0.", ",", "double", ",", "\"\<kg/s\>\"", ",", 
       "\"\<Exit mass flow\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ae", ",", "0.", ",", "double", ",", "\"\<m2\>\"", ",", 
       "\"\<exit Area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "pe", ",", "0.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<exit pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "pc", ",", "0.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<chamber pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Te", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<exit temperature\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ve", ",", "0.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<exit velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pin", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Input power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pout", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Output power\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.565539113334306*^9, 3.565539170607582*^9}, 
   3.5655884315190153`*^9, {3.5655908350732856`*^9, 3.5655908608133307`*^9}, {
   3.5689134004328136`*^9, 3.5689134318216095`*^9}, {3.569832577540374*^9, 
   3.569832598803211*^9}, {3.569849279670601*^9, 3.5698492803882027`*^9}, {
   3.569849895365325*^9, 3.5698499629602437`*^9}, {3.57027251873244*^9, 
   3.5702727197269363`*^9}, {3.5704730622877254`*^9, 
   3.5704730764595366`*^9}, {3.570473757821508*^9, 3.5704737742314463`*^9}, {
   3.5712384023921747`*^9, 3.5712384109286633`*^9}, {3.5714148432134714`*^9, 
   3.5714148651367254`*^9}, 3.571825064632078*^9, {3.577287063744469*^9, 
   3.5772870691517787`*^9}, {3.581057616690789*^9, 3.581057626863789*^9}, {
   3.5854721187846518`*^9, 3.5854721245389805`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "=", "gam"}], ";"}]], "Input",
 CellChangeTimes->{{3.571299017466159*^9, 3.571299038203345*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initialExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c1", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"pc", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c1f", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2f", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Tc", "\[Equal]", "T1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"rhogas", " ", "==", 
      FractionBox[
       RowBox[{" ", "pc"}], 
       RowBox[{"R", " ", 
        RowBox[{"(", 
         RowBox[{"Tc", "+", "1"}], ")"}]}]]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.51681842278125*^9, 3.516818476890625*^9}, 
   3.516818573890625*^9, {3.5698739048403206`*^9, 3.569873941266384*^9}, 
   3.570031760851929*^9, 3.570473448103793*^9, {3.5704736357605267`*^9, 
   3.570473651696438*^9}, 3.5712328599921675`*^9, {3.571239156806325*^9, 
   3.5712391949185047`*^9}, {3.5718593792738695`*^9, 3.571859411004325*^9}, {
   3.5730585003313026`*^9, 3.5730585710843496`*^9}, {3.577205360078287*^9, 
   3.577205392197124*^9}, {3.577287054872962*^9, 3.577287055401992*^9}, {
   3.5772873493938074`*^9, 3.5772873498948364`*^9}, {3.5772878646422777`*^9, 
   3.5772878671994247`*^9}, {3.5810576389267893`*^9, 3.581057642447789*^9}, {
   3.5854722604067516`*^9, 3.5854722861052217`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["initialExpressions"], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"c1", "\[Equal]", "p1"}], ",", 
   RowBox[{"c2", "\[Equal]", "p1"}], ",", 
   RowBox[{"pc", "\[Equal]", "p1"}], ",", 
   RowBox[{"c1f", "\[Equal]", "p1"}], ",", 
   RowBox[{"c2f", "\[Equal]", "p1"}], ",", 
   RowBox[{"Tc", "\[Equal]", "T1"}], ",", 
   RowBox[{"rhogas", "\[Equal]", 
    FractionBox["pc", 
     RowBox[{"R", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "Tc"}], ")"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.57728785873594*^9, 3.5772878869775553`*^9}, 
   3.577288077417448*^9, 3.577288123752098*^9, 3.577288214905312*^9, 
   3.5805555002579374`*^9, 3.5810577660368886`*^9, 3.5813293395251207`*^9, {
   3.581350813349578*^9, 3.5813508283434353`*^9}, 3.5813508898379526`*^9, {
   3.5813529773173494`*^9, 3.581352990666113*^9}, {3.581353238263275*^9, 
   3.581353262260648*^9}, 3.581353348109558*^9, 3.581356604997841*^9, 
   3.5847646656860886`*^9, 3.5847718381603303`*^9, 3.5847718792826824`*^9, 
   3.5847721088208113`*^9, 3.584779007161374*^9, 3.584785428934678*^9, {
   3.5847854766494074`*^9, 3.5847855025588894`*^9}, 3.584976135235469*^9, 
   3.5849763876619067`*^9, 3.584976503312522*^9, 3.5849777867929325`*^9, 
   3.5849778176896996`*^9, 3.584978275845905*^9, 3.5854724714708242`*^9, 
   3.5854725162883873`*^9, 3.5855710121368103`*^9, {3.5859705401638217`*^9, 
   3.5859705688026853`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cfuel", "=", " ", 
   FractionBox[
    SuperscriptBox["vfuel", "2"], "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.569851306825736*^9, 3.569851404036707*^9}, 
   3.5703923675004215`*^9, {3.5704746874626803`*^9, 3.570474713213153*^9}, 
   3.5718299672550926`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cep", "=", 
   RowBox[{"\[Gamma]", " ", "Vc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570472612395993*^9, 3.570472615218155*^9}, {
   3.5704726588736515`*^9, 3.5704726820809793`*^9}, 3.5712994508649473`*^9, 
   3.5854722507161975`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Tref", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.581350679723935*^9, 3.5813506940167522`*^9}, 
   3.5813510996349525`*^9, 3.581353234782076*^9, {3.584977773728185*^9, 
   3.5849777746922407`*^9}, 3.5849778099792585`*^9, 3.584978162833441*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mdot1", "=", 
   RowBox[{"q1", " ", "rhofuel"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mdot2", "=", 
   RowBox[{"-", "mdot"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5703061899370613`*^9, 3.5703062136854196`*^9}, {
   3.5703062444511795`*^9, 3.570306246772312*^9}, 3.570306431637886*^9, 
   3.570306553634864*^9, 3.5703073189876394`*^9, {3.5703075923892775`*^9, 
   3.5703076087802143`*^9}, {3.5703076633683367`*^9, 3.570307673589922*^9}, {
   3.570473512144456*^9, 3.5704735128824987`*^9}, {3.571232833404647*^9, 
   3.5712328412480955`*^9}, {3.573060707368538*^9, 3.5730607150299764`*^9}, 
   3.5805553928407936`*^9, {3.5813506717434783`*^9, 3.5813506756126995`*^9}, 
   3.5854721451161575`*^9, 3.585584209319646*^9, {3.585584250669011*^9, 
   3.5855842512570443`*^9}}],

Cell[BoxData[
 RowBox[{"Zc1e", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"mTimestep", "  "}], "Cep"], "rhofuel", " ", "cfuel"}]}]], "Input",
 CellChangeTimes->{{3.5703068226022477`*^9, 3.5703068410983057`*^9}, {
   3.5703924271288323`*^9, 3.5703924578185873`*^9}, {3.5704725544746804`*^9, 
   3.570472577945023*^9}, 3.570472764138673*^9, 3.5712328439192486`*^9, 
   3.5712362936765633`*^9, 3.573060757807423*^9, {3.58135077474037*^9, 
   3.5813507753924065`*^9}, {3.5813510838110476`*^9, 3.581351086073177*^9}, 
   3.5855845120819626`*^9, {3.5855845448838387`*^9, 3.585584572978446*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZcEp", "=", 
  FractionBox["mTimestep", "Cep"]}]], "Input",
 CellChangeTimes->{{3.5704727084904895`*^9, 3.570472718950088*^9}, {
   3.5704734125617604`*^9, 3.5704734127367706`*^9}, 3.570474589090054*^9, 
   3.57123567907941*^9}],

Cell[BoxData[
 FractionBox["mTimestep", 
  RowBox[{"gam", " ", "Vc"}]]], "Output",
 CellChangeTimes->{
  3.571233322211605*^9, 3.57123346706489*^9, 3.5712335405240917`*^9, 
   3.5712335794033155`*^9, 3.5712341211873035`*^9, 3.5712342102743993`*^9, 
   3.571234389174632*^9, 3.5712344755915747`*^9, 3.571235881776004*^9, 
   3.5712359480507946`*^9, 3.5712359930723696`*^9, 3.571236140795819*^9, 
   3.571236194892913*^9, 3.571236385898838*^9, 3.571239038848578*^9, 
   3.571239201238866*^9, 3.5712567998214474`*^9, 3.571257368888996*^9, 
   3.5712574289134293`*^9, 3.5712995469314423`*^9, {3.5713014918106833`*^9, 
   3.5713015085446405`*^9}, {3.5713083889941797`*^9, 3.57130839425348*^9}, 
   3.5713239466500263`*^9, 3.5714151632737775`*^9, 3.5714152423663015`*^9, 
   3.571415971456003*^9, 3.5718251067974896`*^9, 3.5718276133297553`*^9, 
   3.571827689576136*^9, {3.571827763462676*^9, 3.571827793055928*^9}, 
   3.5718292274427714`*^9, 3.571829747066374*^9, 3.5718382501245446`*^9, 
   3.571859450578395*^9, 3.571859515802717*^9, 3.5718595874344997`*^9, 
   3.5718611596651187`*^9, 3.5718615796851025`*^9, 3.5730501641440334`*^9, 
   3.5730531599143343`*^9, 3.5730532631572394`*^9, 3.5730561891440315`*^9, 
   3.57305707100555*^9, {3.573058579171812*^9, 3.573058588538348*^9}, 
   3.5730593232243695`*^9, 3.573061131009769*^9, 3.575628875463008*^9, 
   3.575644793683917*^9, 3.5769417595972633`*^9, 3.5769418242559614`*^9, 
   3.5769419533733463`*^9, 3.576942146053367*^9, 3.576942780124634*^9, 
   3.5772054754648867`*^9, 3.57720563008473*^9, 3.5772058022285767`*^9, 
   3.5772058936868076`*^9, 3.577206121210821*^9, 3.5772072446570787`*^9, 
   3.577207290783717*^9, 3.5772804048116*^9, {3.577287115825448*^9, 
   3.577287134792533*^9}, 3.577287395012417*^9, 3.5772874493615255`*^9, 
   3.5772875969269657`*^9, {3.577287691462373*^9, 3.577287711258505*^9}, {
   3.5772877548729997`*^9, 3.5772877811695037`*^9}, 3.577287853222625*^9, 
   3.5772878870705605`*^9, 3.577288077500453*^9, 3.577288123840103*^9, 
   3.5772882149933167`*^9, 3.5805555003429427`*^9, 3.5810577661109037`*^9, 
   3.5813293396651287`*^9, {3.581350813454584*^9, 3.5813508284714427`*^9}, 
   3.5813508899549594`*^9, {3.5813529774743586`*^9, 3.581352990813122*^9}, {
   3.581353238422284*^9, 3.5813532624186563`*^9}, 3.581353348249566*^9, 
   3.5813566052038527`*^9, 3.5847646658080955`*^9, 3.584771838270337*^9, 
   3.5847718793726873`*^9, 3.584772108912817*^9, 3.584779007256379*^9, 
   3.5847854290236835`*^9, {3.5847854767394123`*^9, 3.5847855026498947`*^9}, 
   3.5849761353344746`*^9, 3.584976387751912*^9, 3.5849765034015265`*^9, 
   3.5849777868899384`*^9, 3.584977817776705*^9, 3.58497827593991*^9, 
   3.58547247158083*^9, 3.5854725163993936`*^9, 3.5855710122248154`*^9, {
   3.585970540267832*^9, 3.5859705688826933`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qE1", "=", 
  RowBox[{"mdot1", " ", "cfuel"}]}]], "Input",
 CellChangeTimes->{{3.5700315725051565`*^9, 3.570031584175824*^9}, {
   3.571233114797742*^9, 3.571233115161762*^9}, 3.5712332487414026`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "q1", " ", "rhofuel", " ", 
  SuperscriptBox["vfuel", "2"]}]], "Output",
 CellChangeTimes->{
  3.571233322237606*^9, 3.5712334670888915`*^9, 3.5712335405480933`*^9, 
   3.5712335794363174`*^9, 3.5712341212163057`*^9, 3.5712342103004007`*^9, 
   3.571234389199633*^9, 3.5712344756145763`*^9, 3.571235881804005*^9, 
   3.571235948081796*^9, 3.571235993099371*^9, 3.5712361408288207`*^9, 
   3.5712361949189143`*^9, 3.5712363859248395`*^9, 3.57123903888158*^9, 
   3.5712392012668676`*^9, 3.571256799851449*^9, 3.5712573689179983`*^9, 
   3.571257428940431*^9, 3.571299546963444*^9, {3.571301491843685*^9, 
   3.571301508571642*^9}, {3.5713083890311813`*^9, 3.5713083942924824`*^9}, 
   3.571323946683028*^9, 3.5714151633057795`*^9, 3.5714152423903027`*^9, 
   3.5714159714830046`*^9, 3.571825106820491*^9, 3.5718276133609557`*^9, 
   3.571827689607336*^9, {3.5718277634782763`*^9, 3.5718277930871286`*^9}, 
   3.571829227458371*^9, 3.5718297470819736`*^9, 3.5718382501557446`*^9, 
   3.571859450593995*^9, 3.5718595158183174`*^9, 3.5718595874657*^9, 
   3.5718611596963186`*^9, 3.5718615797163024`*^9, 3.5730501641700354`*^9, 
   3.573053159939336*^9, 3.5730532631802406`*^9, 3.5730561891660333`*^9, 
   3.5730570710355515`*^9, {3.5730585791968136`*^9, 3.5730585885623493`*^9}, 
   3.5730593232523713`*^9, 3.57306113103177*^9, 3.57562887548401*^9, 
   3.575644793703918*^9, 3.576941759623265*^9, 3.5769418242919636`*^9, 
   3.5769419533993483`*^9, 3.5769421460883694`*^9, 3.576942780156636*^9, 
   3.5772054754878883`*^9, 3.577205630110732*^9, 3.577205802253578*^9, 
   3.577205893712809*^9, 3.5772061212338223`*^9, 3.57720724468008*^9, 
   3.577207290809718*^9, 3.5772804048386016`*^9, {3.5772871158514495`*^9, 
   3.5772871348205347`*^9}, 3.577287395035418*^9, 3.5772874493855267`*^9, 
   3.577287596953967*^9, {3.577287691488374*^9, 3.5772877112835064`*^9}, {
   3.577287754899001*^9, 3.577287781195505*^9}, 3.5772878532466264`*^9, 
   3.5772878870945625`*^9, 3.5772880775224543`*^9, 3.5772881238641047`*^9, 
   3.5772882150163183`*^9, 3.5805555003629436`*^9, 3.581057766130907*^9, 
   3.581329339713131*^9, {3.581350813480585*^9, 3.581350828496444*^9}, 
   3.581350889979961*^9, {3.5813529775193615`*^9, 3.5813529908581243`*^9}, {
   3.581353238456286*^9, 3.5813532624526587`*^9}, 3.581353348283568*^9, 
   3.581356605241855*^9, 3.584764665836097*^9, 3.5847718382993383`*^9, 
   3.5847718793926888`*^9, 3.5847721089348183`*^9, 3.5847790072783804`*^9, 
   3.584785429045685*^9, {3.584785476760414*^9, 3.5847855026698956`*^9}, 
   3.584976135356476*^9, 3.5849763877749133`*^9, 3.5849765034225283`*^9, 
   3.584977786911939*^9, 3.5849778177977057`*^9, 3.5849782759609113`*^9, 
   3.5854724716068316`*^9, 3.5854725164353957`*^9, 3.585571012247816*^9, {
   3.585970540298835*^9, 3.5859705689056954`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"qE2", " ", "=", 
   RowBox[{"mdot2", " ", 
    RowBox[{"(", 
     RowBox[{"cv", "+", "R"}], ")"}], " ", "Tc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570307281120474*^9, 3.5703073045888157`*^9}, {
   3.570473527496334*^9, 3.570473528284379*^9}, {3.571233117368889*^9, 
   3.5712331186469617`*^9}, 3.5730565177869077`*^9, {3.581329201204209*^9, 
   3.5813292063525033`*^9}, {3.581329284702985*^9, 3.581329317123839*^9}, {
   3.581332773124511*^9, 3.5813327816139965`*^9}, 3.5813328170890255`*^9, 
   3.5813508723609533`*^9, {3.5813565937011952`*^9, 3.581356600529586*^9}, {
   3.5847710769157896`*^9, 3.5847710857572956`*^9}, {3.5847711235564575`*^9, 
   3.584771128951766*^9}, {3.5847711652808437`*^9, 3.5847711657818727`*^9}, {
   3.5847712503147078`*^9, 3.5847712590682087`*^9}, 3.584778923432585*^9, 
   3.584785378397788*^9, 3.5849761013055277`*^9, {3.5849763654506364`*^9, 
   3.5849763661876783`*^9}, 3.5854721605820417`*^9, {3.5855708667834964`*^9, 
   3.585570867949563*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Gamma]", "==", 
      FractionBox[
       RowBox[{"cv", "+", "R"}], "cv"]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c10", "==", 
      RowBox[{"c2", "+", 
       RowBox[{"2", " ", "ZcEp", " ", "qE2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c20", "==", 
      RowBox[{"c1", "+", 
       RowBox[{"2", " ", "ZcEp", " ", "qE1"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818175265625*^9, 3.51681819540625*^9}, {
   3.516818378453125*^9, 3.516818390015625*^9}, {3.5700315278346014`*^9, 
   3.5700315301257324`*^9}, {3.570473894668335*^9, 3.5704738961954226`*^9}, {
   3.570474569105911*^9, 3.570474572809123*^9}, {3.571235454712577*^9, 
   3.5712354596208577`*^9}, {3.5712982962379065`*^9, 3.571298322432405*^9}, 
   3.5713187972935*^9, {3.571859358806634*^9, 3.5718593708654547`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"der", "[", "rhogas", "]"}], "==", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"mdot1", "+", "mdot2"}], ")"}], "Vc"]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"rhogas", " ", "R", " ", "Tc"}], " ", "==", " ", "pc"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"mdot", "==", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"As", " ", "pc"}], 
         SqrtBox[
          RowBox[{"Tc", "+", "1"}]]], 
        SqrtBox[
         FractionBox["\[Gamma]", "R"]], 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[Gamma]", "+", "1"}], "2"], ")"}], 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[Gamma]", "+", "1"}], 
           RowBox[{"2", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]}]]}], ")"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570049196534193*^9, 3.570049290841587*^9}, {
   3.5702706207238803`*^9, 3.570270624359088*^9}, {3.570270673951925*^9, 
   3.570270711199055*^9}, {3.570270939501113*^9, 3.570271021825822*^9}, {
   3.5702721412388487`*^9, 3.5702721752057915`*^9}, {3.5702722527732277`*^9, 
   3.5702722753895216`*^9}, {3.5702723081883974`*^9, 3.570272322377209*^9}, {
   3.5702725021374907`*^9, 3.570272505182665*^9}, {3.5702727244372053`*^9, 
   3.570272735395832*^9}, {3.570272843387009*^9, 3.5702728491533394`*^9}, {
   3.570306106424285*^9, 3.570306114228731*^9}, 3.570306990202834*^9, {
   3.5703070296510906`*^9, 3.570307075648721*^9}, {3.570307187787135*^9, 
   3.5703072118185096`*^9}, {3.570307296711365*^9, 3.5703073209817533`*^9}, {
   3.570307491141486*^9, 3.5703075772694125`*^9}, {3.570307630695468*^9, 
   3.570307635778759*^9}, {3.5703077114220853`*^9, 3.5703077367725353`*^9}, {
   3.570307910054446*^9, 3.570307912796603*^9}, {3.5703920692453623`*^9, 
   3.570392098411031*^9}, {3.5703921399694076`*^9, 3.5703921437436237`*^9}, {
   3.5712333345423107`*^9, 3.571233349905189*^9}, 3.57123607192788*^9, 
   3.571236188651556*^9, {3.571298520924758*^9, 3.5712987086734967`*^9}, {
   3.5712987682829065`*^9, 3.5712989160053554`*^9}, {3.5712989979660435`*^9, 
   3.571299001730259*^9}, {3.571299044467703*^9, 3.571299119470993*^9}, {
   3.5712991505387697`*^9, 3.571299180385477*^9}, {3.571825032201223*^9, 
   3.571825046125019*^9}, 3.5718275736768856`*^9, 3.5718290313972273`*^9, {
   3.5718290753269043`*^9, 3.5718291262921934`*^9}, {3.5718291998931227`*^9, 
   3.571829201094325*^9}, {3.5718597308161974`*^9, 3.571859741252616*^9}, {
   3.5772882044967165`*^9, 3.5772882045617204`*^9}, 3.5805567951470013`*^9, {
   3.581057507849789*^9, 3.5810575183217893`*^9}, {3.585472169514553*^9, 
   3.5854721757769113`*^9}, 3.5854723589613886`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", "=", 
   RowBox[{"{", 
    RowBox[{"rhogas", ",", "Tc", ",", "mdot"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5702709993645372`*^9, 3.57027100990114*^9}, {
   3.570271051269506*^9, 3.570271103429489*^9}, {3.5702723480836797`*^9, 
   3.5702723511688557`*^9}, 3.570272727380374*^9, {3.5702727744360657`*^9, 
   3.570272776054158*^9}, {3.5703077245898385`*^9, 3.570307725247876*^9}, 
   3.570307802125273*^9, {3.570392272203971*^9, 3.570392272776004*^9}, 
   3.5712358224876127`*^9, 3.5713977390241675`*^9, 3.5718250499582386`*^9, 
   3.571827595064523*^9, 3.5718291204421835`*^9, {3.5718291917655087`*^9, 
   3.5718291921867094`*^9}, {3.581057605930789*^9, 3.581057606973789*^9}, 
   3.5854721788300858`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variableLimits", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mdot", ",", "0.", ",", 
      RowBox[{"1.", " ", 
       SuperscriptBox["10", "9"]}]}], "}"}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5713082545844917`*^9, 3.5713082732005568`*^9}, {
   3.57130832484351*^9, 3.571308350515979*^9}, {3.5713205279444876`*^9, 
   3.5713205374340305`*^9}, 3.5713241499496546`*^9, {3.5714159147307587`*^9, 
   3.571415918724987*^9}, 3.5714165950276694`*^9, 3.57182507532969*^9, {
   3.5730584254660206`*^9, 3.573058427516138*^9}, {3.5772873592043686`*^9, 
   3.5772873678348627`*^9}, {3.5810577159968824`*^9, 3.5810577173131456`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Me", "=", "Med"}], ";"}]], "Input",
 CellChangeTimes->{{3.5718250774868135`*^9, 3.571825081745057*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c1", "==", "c10"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2", "==", "c20"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zc1", "==", "Zc1e"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Ae", "==", 
      RowBox[{"As", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], "2"], ")"}], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]}]], 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[Gamma]", "-", "1"}], "2"], 
            SuperscriptBox["Med", "2"]}]}], ")"}], 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]], "Med"]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"pe", "==", 
      RowBox[{"pc", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", "-", "1"}], "2"], 
           SuperscriptBox["Me", "2"]}]}], ")"}], 
        FractionBox[
         RowBox[{"-", "\[Gamma]"}], 
         RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Te", "==", 
      RowBox[{"Tc", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", "-", "1"}], "2"], 
           SuperscriptBox["Me", "2"]}]}], ")"}], 
        RowBox[{"-", "1"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ve", "==", 
      RowBox[{"Me", " ", 
       SqrtBox[
        RowBox[{"\[Gamma]", " ", "R", " ", "Te"}]]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"thrust", "\[Equal]", 
      RowBox[{"lowLimit", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"mdot", " ", "ve"}], "+", 
          RowBox[{"Ae", 
           RowBox[{"(", 
            RowBox[{"pe", "-", "pa"}], ")"}]}]}], ")"}], ",", "0"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Pin", "==", 
      RowBox[{"mdot1", " ", "cfuel"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pout", "\[Equal]", 
      RowBox[{
       RowBox[{"-", "mdot2"}], " ", 
       FractionBox[
        SuperscriptBox["ve", "2"], "2"]}]}]}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{
  3.5698736249914293`*^9, 3.57002958853968*^9, {3.570030206489025*^9, 
   3.5700302097402105`*^9}, {3.570031804877447*^9, 3.5700318166821227`*^9}, {
   3.5703077432729073`*^9, 3.57030778021002*^9}, {3.570307933648796*^9, 
   3.570307936992987*^9}, {3.570392100271137*^9, 3.570392120063269*^9}, {
   3.570392212530558*^9, 3.570392230817604*^9}, {3.570472756451233*^9, 
   3.5704727580843267`*^9}, {3.5704731758712225`*^9, 
   3.5704732734318027`*^9}, {3.5704733558915186`*^9, 
   3.5704733909705257`*^9}, {3.570473424136422*^9, 3.57047342496447*^9}, {
   3.5704734884581013`*^9, 3.570473505186058*^9}, {3.5704735585451097`*^9, 
   3.5704735757620945`*^9}, {3.570473804700189*^9, 3.570473867355773*^9}, {
   3.571235487192435*^9, 3.571235491094658*^9}, 3.5712359786285434`*^9, {
   3.5712362393124533`*^9, 3.5712362629698067`*^9}, {3.57123632509236*^9, 
   3.571236325404378*^9}, {3.5712363567841725`*^9, 3.5712363804225245`*^9}, {
   3.5712567684446526`*^9, 3.5712567707457843`*^9}, 3.571257066999729*^9, {
   3.571299285839509*^9, 3.5712993253587694`*^9}, 3.5713014826321583`*^9, {
   3.5718275789496946`*^9, 3.5718275893237133`*^9}, {3.5718290349228334`*^9, 
   3.571829070054095*^9}, {3.5718291013477497`*^9, 3.5718291609398546`*^9}, {
   3.5718296728570433`*^9, 3.571829677178251*^9}, {3.5718297219971294`*^9, 
   3.5718297244775343`*^9}, {3.571838227020904*^9, 3.571838227410905*^9}, {
   3.571859289121311*^9, 3.571859347746214*^9}, 3.571859575812479*^9, 
   3.5805982697975597`*^9, {3.5813528604316645`*^9, 3.581352881845889*^9}, 
   3.581352966171712*^9, {3.5854721830733285`*^9, 3.5854721913668027`*^9}, {
   3.5854723250604496`*^9, 3.585472334401984*^9}, {3.58557072611145*^9, 
   3.5855707574302416`*^9}}],

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellChangeTimes->{3.5039025691670113`*^9}]
}, Open  ]]
}, Closed]]
},
CellGrouping->Manual,
WindowSize->{1024, 730},
WindowMargins->{{228, Automatic}, {-291, Automatic}},
Magnification->1.2000000476837158`,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 146, 2, 79, "Title"],
Cell[CellGroupData[{
Cell[750, 28, 92, 1, 90, "Section"],
Cell[845, 31, 146, 2, 46, "Input"],
Cell[994, 35, 706, 14, 67, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1737, 54, 193, 3, 90, "Section",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[1933, 59, 1179, 28, 313, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[3115, 89, 629, 13, 140, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[3747, 104, 619, 13, 140, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[4369, 119, 848, 18, 175, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[5220, 139, 597, 12, 140, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[5820, 153, 361, 7, 69, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[6184, 162, 651, 13, 140, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[CellGroupData[{
Cell[6860, 179, 377, 9, 69, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[7240, 190, 388, 8, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7665, 203, 781, 15, 69, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[8449, 220, 386, 8, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8872, 233, 257, 5, 69, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[9132, 240, 757, 15, 84, "Message"],
Cell[9892, 257, 759, 15, 84, "Message"],
Cell[10654, 274, 2711, 42, 84, "Message"],
Cell[13368, 318, 685, 14, 84, "Message"],
Cell[14056, 334, 798, 15, 84, "Message"],
Cell[14857, 351, 683, 14, 84, "Message"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[15589, 371, 124, 2, 54, "Section"],
Cell[15716, 375, 937, 25, 187, "Input"],
Cell[16656, 402, 1539, 36, 187, "Input"],
Cell[18198, 440, 1423, 32, 147, "Input"],
Cell[19624, 474, 1084, 26, 127, "Input"],
Cell[20711, 502, 139, 3, 46, "Input"],
Cell[CellGroupData[{
Cell[20875, 509, 281, 8, 46, "Input"],
Cell[21159, 519, 920, 16, 65, "Output"]
}, Open  ]],
Cell[22094, 538, 584, 13, 145, "Input"],
Cell[22681, 553, 229, 6, 46, "Input"],
Cell[CellGroupData[{
Cell[22935, 563, 153, 3, 46, "Input"],
Cell[23091, 568, 835, 13, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23963, 586, 149, 3, 46, "Input"],
Cell[24115, 591, 842, 13, 47, "Output"]
}, Open  ]],
Cell[24972, 607, 461, 10, 107, "Input"],
Cell[CellGroupData[{
Cell[25458, 621, 63, 1, 46, "Input"],
Cell[25524, 624, 874, 16, 26, "Message"],
Cell[26401, 642, 874, 16, 26, "Message"],
Cell[27278, 660, 2972, 45, 181, "Message"],
Cell[30253, 707, 798, 15, 26, "Message"],
Cell[31054, 724, 947, 17, 49, "Message"],
Cell[32004, 743, 798, 15, 26, "Message"],
Cell[32805, 760, 945, 17, 49, "Message"],
Cell[33753, 779, 798, 15, 26, "Message"],
Cell[34554, 796, 872, 16, 26, "Message"],
Cell[35429, 814, 947, 17, 49, "Message"],
Cell[36379, 833, 875, 16, 26, "Message"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37303, 855, 95, 1, 54, "Section"],
Cell[37401, 858, 937, 25, 187, "Input"],
Cell[38341, 885, 1569, 37, 187, "Input"],
Cell[39913, 924, 2176, 48, 227, "Input"],
Cell[42092, 974, 1177, 26, 147, "Input"],
Cell[43272, 1002, 139, 3, 46, "Input"],
Cell[43414, 1007, 1465, 35, 186, "Input"],
Cell[44882, 1044, 786, 19, 107, "Input"],
Cell[45671, 1065, 229, 6, 46, "Input"],
Cell[45903, 1073, 619, 13, 107, "Input"],
Cell[CellGroupData[{
Cell[46547, 1090, 63, 1, 46, "Input"],
Cell[46613, 1093, 836, 15, 26, "Message"],
Cell[47452, 1110, 836, 15, 26, "Message"],
Cell[48291, 1127, 839, 15, 26, "Message"],
Cell[49133, 1144, 835, 15, 26, "Message"],
Cell[49971, 1161, 2418, 37, 137, "Message"],
Cell[52392, 1200, 765, 14, 26, "Message"],
Cell[53160, 1216, 914, 16, 49, "Message"],
Cell[54077, 1234, 762, 14, 26, "Message"],
Cell[54842, 1250, 912, 16, 49, "Message"],
Cell[55757, 1268, 765, 14, 26, "Message"],
Cell[56525, 1284, 836, 15, 26, "Message"],
Cell[57364, 1301, 911, 16, 49, "Message"],
Cell[58278, 1319, 839, 15, 26, "Message"],
Cell[59120, 1336, 485, 7, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59654, 1349, 143, 2, 90, "Section"],
Cell[59800, 1353, 957, 24, 313, "Input"],
Cell[60760, 1379, 913, 20, 175, "Input"],
Cell[61676, 1401, 495, 13, 210, "Input"],
Cell[62174, 1416, 2515, 56, 382, "Input"],
Cell[64692, 1474, 1456, 32, 278, "Input"],
Cell[66151, 1508, 384, 9, 140, "Input"],
Cell[66538, 1519, 571, 16, 278, "Input"],
Cell[67112, 1537, 814, 16, 105, "Input"],
Cell[67929, 1555, 1058, 34, 262, "Input"],
Cell[68990, 1591, 934, 21, 313, "Input"],
Cell[69927, 1614, 363, 6, 80, "Text"],
Cell[CellGroupData[{
Cell[70315, 1624, 494, 10, 69, "Input"],
Cell[70812, 1636, 5046, 87, 84, "Output"]
}, Open  ]],
Cell[75873, 1726, 571, 16, 278, "Input"],
Cell[CellGroupData[{
Cell[76469, 1746, 96, 1, 69, "Input"],
Cell[76568, 1749, 1175, 30, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77780, 1784, 96, 1, 69, "Input"],
Cell[77879, 1787, 1094, 29, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79010, 1821, 237, 6, 100, "Input"],
Cell[79250, 1829, 661, 11, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79948, 1845, 214, 5, 100, "Input"],
Cell[80165, 1852, 800, 13, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81002, 1870, 371, 9, 100, "Input"],
Cell[81376, 1881, 933, 17, 84, "Output"]
}, Open  ]],
Cell[82324, 1901, 1081, 23, 235, "Input"],
Cell[CellGroupData[{
Cell[83430, 1928, 253, 5, 69, "Input"],
Cell[83686, 1935, 1180, 18, 84, "Output"]
}, Open  ]],
Cell[84881, 1956, 978, 19, 278, "Input"],
Cell[CellGroupData[{
Cell[85884, 1979, 63, 1, 69, "Input"],
Cell[85950, 1982, 852, 15, 84, "Message"],
Cell[86805, 1999, 3093, 48, 84, "Message"],
Cell[89901, 2049, 879, 16, 84, "Message"],
Cell[90783, 2067, 996, 17, 84, "Message"],
Cell[91782, 2086, 879, 16, 84, "Message"],
Cell[92664, 2104, 1026, 18, 84, "Message"],
Cell[93693, 2124, 881, 16, 84, "Message"],
Cell[94577, 2142, 955, 17, 84, "Message"],
Cell[95535, 2161, 1026, 18, 84, "Message"],
Cell[96564, 2181, 956, 17, 84, "Message"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[97569, 2204, 118, 2, 54, "Section"],
Cell[97690, 2208, 1058, 25, 224, "Input"],
Cell[98751, 2235, 269, 8, 55, "Input"],
Cell[99023, 2245, 2233, 56, 320, "Input"],
Cell[101259, 2303, 1139, 27, 176, "Input"],
Cell[102401, 2332, 492, 15, 55, "Input"],
Cell[102896, 2349, 961, 30, 55, "Input"],
Cell[103860, 2381, 1082, 33, 80, "Input"],
Cell[104945, 2416, 265, 6, 55, "Input"],
Cell[105213, 2424, 626, 12, 176, "Input"],
Cell[CellGroupData[{
Cell[105864, 2440, 63, 1, 55, "Input"],
Cell[105930, 2443, 3452, 52, 217, "Message"],
Cell[109385, 2497, 1176, 20, 31, "Message"],
Cell[110564, 2519, 1289, 21, 31, "Message"],
Cell[111856, 2542, 1176, 20, 31, "Message"]
}, Open  ]],
Cell[113047, 2565, 825, 24, 296, "Input"],
Cell[113875, 2591, 240, 8, 55, "Input"],
Cell[114118, 2601, 215, 5, 55, "Input"],
Cell[CellGroupData[{
Cell[114358, 2610, 48, 0, 55, "Input"],
Cell[114409, 2612, 1884, 35, 362, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116330, 2652, 38, 0, 55, "Input"],
Cell[116371, 2654, 1872, 35, 362, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118280, 2694, 83, 1, 55, "Input"],
Cell[118366, 2697, 1869, 35, 362, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120272, 2737, 240, 6, 55, "Input"],
Cell[120515, 2745, 1886, 35, 362, "Output"]
}, Open  ]],
Cell[122416, 2783, 242, 17, 324, "Input"]
}, Closed]]
}, Open  ]],
Cell[122685, 2804, 706, 14, 67, "Input"],
Cell[CellGroupData[{
Cell[123416, 2822, 194, 2, 90, "Section"],
Cell[123613, 2826, 1505, 34, 187, "Input"],
Cell[CellGroupData[{
Cell[125143, 2864, 98, 1, 46, "Input"],
Cell[125244, 2867, 1028, 15, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126309, 2887, 97, 1, 43, "Subsection"],
Cell[126409, 2890, 678, 13, 87, "Input"],
Cell[127090, 2905, 458, 11, 87, "Input"],
Cell[127551, 2918, 2891, 59, 247, "Input"],
Cell[130445, 2979, 2778, 60, 287, "Input"],
Cell[133226, 3041, 142, 3, 46, "Input"],
Cell[133371, 3046, 1451, 27, 245, "Input"],
Cell[CellGroupData[{
Cell[134847, 3077, 44, 0, 46, "Input"],
Cell[134894, 3079, 574, 15, 64, "Output"]
}, Open  ]],
Cell[135483, 3097, 298, 7, 67, "Input"],
Cell[135784, 3106, 273, 6, 46, "Input"],
Cell[136060, 3114, 286, 5, 46, "Input"],
Cell[136349, 3121, 892, 18, 87, "Input"],
Cell[CellGroupData[{
Cell[137266, 3143, 580, 11, 67, "Input"],
Cell[137849, 3156, 275, 6, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138161, 3167, 252, 5, 67, "Input"],
Cell[138416, 3174, 199, 4, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138652, 3183, 224, 4, 46, "Input"],
Cell[138879, 3189, 241, 5, 64, "Output"]
}, Open  ]],
Cell[139135, 3197, 988, 17, 46, "Input"],
Cell[CellGroupData[{
Cell[140148, 3218, 79, 2, 50, "Input"],
Cell[140230, 3222, 188, 4, 49, "Output"]
}, Open  ]],
Cell[140433, 3229, 1466, 27, 164, "Input"],
Cell[141902, 3258, 3009, 60, 202, "Input"],
Cell[144914, 3320, 768, 13, 46, "Input"],
Cell[145685, 3335, 726, 14, 96, "Input"],
Cell[146414, 3351, 138, 3, 46, "Input"],
Cell[146555, 3356, 4793, 116, 424, "Input"],
Cell[CellGroupData[{
Cell[151373, 3476, 107, 2, 46, "Input"],
Cell[151483, 3480, 1576, 26, 26, "Message"],
Cell[153062, 3508, 3569, 54, 181, "Message"],
Cell[156634, 3564, 1502, 25, 26, "Message"],
Cell[158139, 3591, 1617, 26, 26, "Message"],
Cell[159759, 3619, 1502, 25, 26, "Message"],
Cell[161264, 3646, 1617, 26, 26, "Message"],
Cell[162884, 3674, 1502, 25, 26, "Message"],
Cell[164389, 3701, 1576, 26, 26, "Message"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[166004, 3732, 780, 14, 62, "Input"],
Cell[CellGroupData[{
Cell[166809, 3750, 269, 5, 90, "Section"],
Cell[167081, 3757, 1441, 33, 187, "Input"],
Cell[CellGroupData[{
Cell[168547, 3794, 98, 1, 46, "Input"],
Cell[168648, 3797, 979, 14, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169664, 3816, 97, 1, 43, "Subsection"],
Cell[169764, 3819, 678, 13, 87, "Input"],
Cell[170445, 3834, 458, 11, 87, "Input"],
Cell[170906, 3847, 2863, 58, 247, "Input"],
Cell[173772, 3907, 2778, 60, 287, "Input"],
Cell[176553, 3969, 142, 3, 46, "Input"],
Cell[176698, 3974, 1451, 27, 245, "Input"],
Cell[CellGroupData[{
Cell[178174, 4005, 44, 0, 46, "Input"],
Cell[178221, 4007, 1378, 26, 64, "Output"]
}, Open  ]],
Cell[179614, 4036, 298, 7, 67, "Input"],
Cell[179915, 4045, 273, 6, 46, "Input"],
Cell[180191, 4053, 286, 5, 46, "Input"],
Cell[180480, 4060, 826, 15, 67, "Input"],
Cell[181309, 4077, 590, 10, 67, "Input"],
Cell[CellGroupData[{
Cell[181924, 4091, 252, 5, 67, "Input"],
Cell[182179, 4098, 2805, 40, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185021, 4143, 224, 4, 46, "Input"],
Cell[185248, 4149, 2855, 41, 64, "Output"]
}, Open  ]],
Cell[188118, 4193, 1021, 17, 46, "Input"],
Cell[189142, 4212, 1466, 27, 164, "Input"],
Cell[190611, 4241, 2918, 58, 202, "Input"],
Cell[193532, 4301, 768, 13, 46, "Input"],
Cell[194303, 4316, 726, 14, 96, "Input"],
Cell[195032, 4332, 138, 3, 46, "Input"],
Cell[195173, 4337, 4376, 103, 404, "Input"],
Cell[199552, 4442, 107, 2, 46, "Input"]
}, Open  ]]
}, Closed]]
}
]
*)

